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EDITORIAL 


L'été se termine et la rentrée arrive à grands pas. Normalement, elle devrait nous appor¬ 
ter le TELESTRAT et son fameux HYPERBASIC. Dans plusieurs revues, les pubs 
d'EUREKA invitent les lecteurs à faire plus ample connaissance avec la machine. 
Nous, on attend ! Les responsables d'EUREKA affirment ne pas vouloir livrer à la presse 
un TELESTRAT au Basic incomplet, ce qui est tout à leur honneur... mais fait monter 
notre impatience. 

Si ORIC était toujours anglais, on aurait pu dire «WAIT AND SEE»... 


Amis lecteurs, n'hésitez pas à nous contacter si cette machine vous intéresse. Nous 
vous donnerons des renseignements dès qu elle sera là, sur le bureau du rédacteur 
en chef. En attendant, bonne lecture de ce nouveau numéro de THEORIC ! 



AVEZ-VOUS 
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COLLECTION 

COMPLETE 


THEORIC ? 
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COMMANDE ANCIENS NUMEROS 
(valable jusqu'à épuisement des stocks) 

Numéros .. .30 F pièce 

Numéro 1 1 (Hors Série)...25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1.2.3.5 

NOM .Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 


6.50 F jusqu'à 2 exemplaires 

9.50 F jusqu'à 4 exemplaires 
13,50 F jusqu'à 6 exemplaires 


[Ci-joint, chèque bancaire ou postal de 


F. 
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CV _ • Une ligne téléphonique est à votre disposition, vous met 
tant en contact direct avec la rédaction. Ceci est un ser 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro : 99»52»98» IV» 
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20, rue de Montreuil - 94300 VINCENNES - <3* (1) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h — le samedi : 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHÉVOC 1 


K) 1 


"Il ne lui manque que la parole', synthé V0C1 la lui donne I 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 



campagne I 
□ synthétiseur vocal 


550 F 


f\ \ 


MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il "discute" 
avec ses semblables et accède au réseau "minitel" 
Fourni avec interface intégrée et logiciel 

1490 F 



□ moniteur couleur 


2490 F 


Rallonge Péritel 

Ne soyez plus "collé" à l'écran ! 
I 3 rallonge 95 F 



Interrupteur 

Ne courrez plus le risque de faire sauter la ROM 
G interrupteur d’alimentation 85 F 





Imprimante CITIZEN 1200 

120 CPS matrice 9x9 traction ou friction jusqu'à 
3 ex. compatible EBSON garantie 2 ans - interface cen¬ 
trons intégrée 

Particulièrement bien adaptée à l'Ainstrad cette imprimante 
vous donnera toutes satisfactions ! Compatible avec la plu 
part des logiciels de copie d’écran du commerce elle accepte 
également les caractères graphiques 
□ imprimante CITIZEN 120 0 . 3290 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis 
Entrée DIN ou Jack Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 





JASMIN 2 

Le lecteur de disquette que votre One préfère. 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette 



□ lecteur doubletète 

2.490 f 


□ atmos 990 F 



□ 2 titres 

145 F 



□ 3 titres 

195 F 

PROMOTION i 

dans la liste ci-dessous 

□ 4 titres 

220 F 




250 F 

Logiciels pour 

ORIC 1 exclusivement 

□ 10 titres 

395 F 

□pengonc 

□ caractor 

□ yam 

U fromage 

□ facturation 

□ fogger 

□ gastronon 

□ ice giant 

G finances 

□ gencar 

( i calorie 

□ calculus 

□ guerre des couleurs 

U zig zag 


LOGICIELS CASSETTES 


□ digger. 

□ guerre de sécession . 

□ lancelot. 

. 100F 
120F 
155 F 

U cheops . 

□chess . 

□ cité maudite (la). 

140 F 
140 F 
140 F 

□ millionnaire (le) .. 

. 120 

□ zodiac (signes) 

100F 

□ clavidact 

115F 

□ mission delta 

95 

□ colorie 

105F 

U damac (jeu de dames) 

100F 

□ mission impossible 

120 

□ trick shot. 

100F 

□ elephorm , 

100 F 

□ monopolic 

160 

□ canmball 

95 F 

G elephcolor. 

100 F 

□ montségur . 

140 

□ waydor (en français) 

.110F 

Ci dialogue 

120F 

□ dialogue . 

120 

□ pasta blasta . 

95 F 

□ cobra pinball. 

140 F 

□ mots croisés 

120 

□ ultima zone . 

.110F 

□ colorie . 

95 F 

□ multicalc 

190 

□ msect insamty 

95 F 

□ compilateur graphique 250 F 

□ mushroom maniac . 

100 

□ acheton s rage. 

. 95 F 

Cl concours hippique 

70 F 

i i optimum 

141 

□ tondre poulet. 

120F 

□ conjugaison. 

120F 

□ orditiercé. 

14L 

□ nessy . 

95 F 

□ course lettre 

95 F 

□ oric miner 

135 

□ cobra 

140F 

D crypt show 

100F 

□ oric miner 

135 

□ damsel in distress . 

105F 

□ 0 bug . 

140 F 

□ panic . 

95 

□ dambuster. 

100F 

□ dam buster. 

100 F 

□ planette bleue 

120 

□ frigate commander 

100F 

□ détective. 

149 F 

□ playground 

95 

□ gubbie 

100 F 

□ diamant île maudite. 

160F 

D polyfichier . 

180 

□ le dernier métro — 

150 F 

□ donjuan . 

150 F 

□ probe 3 . 

100 

□ ordidactic . 

250 F 

C)durendal 

120 F 

□ rabbit 

65 

□ 3 0 oxo BG 

100 F 

□ élysée . 

145 F 

□ rat splat . 

105 

□ xénon 1 . 

100 F 

□ lire flash. 

120 F 

□ rd v de la terreur 

95 

□ starter 3 D 

. 130F 

□ flûte mca (la) . 

120 F 

Ü retour du dr gemus 

160 

□ formule 1. 

. 130F 

□ frelon. 

120F 

□ reversi . 

95 

□ dossier 'G'. 

140 F 

□ fromage. 

95 F 

G reverse . 

90 

□ assimil (espagnol) 

499 F 

□ galaxion. 

95 F 

□ «.a.g.a. 

150 

□ basic étendu. 

140F 

□ ghost gobbler . 

100 F 

□ secret du tombeau (le) 

140 

□ dédal . 

. 120F 

□ godilloric. 

90 F 

□ Stanley . 

120 

□ image 

. 125F 

□ gravitor. 

90 F 

□ star . 

120 

□ loue raider . 

. 105 F 

U green cross toad. 

100 F 

□ stress 

120 

□ titan. 

130 F 

□ hades . 

250 F 

□ styx. 

120 

□ 1815. 

. 160F 

G hobbn (the) 

180 F 

□ super copy écran 

120 

□ 3 0 fongus . 

. 140 F 

D hopper . 

70 F 

□ super jeep 

120 

□ 3 0 maze . 

. 100F 

□ hyperspace 4 

120F 

D terminus 

120 

□ 30 munch. 

140F 

□ intox et zoé. 

180 F 

□ tic lac . 

120 

□ affaire en or. 

145 F 

□ invader. 

100 F 

□ tortue logic . 

150 

□ aigle d'or . 

180 F 

□ karatéka . 

99 F 

□ tour fantastique (la).. 

120 

□ assimil. 

,510F 

□ lièvre et la tortue (le) 

100 F 

□ tour du monde en 80 

120 

□ atlantis. 

140 F 

□ locus . 

95 F 

□ transat one ...... 

140 

□ basic turbo . 

140 F 

□ logo V 1. 

295 F 

□ trésor du pirate (le) 

95 

□ bering 

. 150 F 

D longraph. 

290 F 

□ triathlon .... 

150 

□ bombyx 

120 F 

D loritel. 

395 F 

□ tyrann 

185 

11 bric à brac 

65 F 

C. lotoriciel . 

120 F 

□ vision. 

120 

□ budget familial 

135 F 

□ macadam bumper 

160F 

Ovortex . 

260 

□ business man. 

140 F 

□ masque d'or (le) 

149 F 

D world war 3 . 

100 

□ calcul mental. 

□ calcul on 4* ml . 

. 120F 

. ; master paint . 

250 F 

□ xénon 3 . 

105 

120 F 

□ meutre à gde vitesse 

180 F 

□ yiking(le) . 

180 

□ catégorie . 

. 95 F 

D microciel. 

120F 

□ zoolympics. 

120 

□ challenger 

130 F 

□ microgéo. 

140 F 

□ zorgons revenge 

100 


LIVRES 


LOGICIELS DISQUETTE (JASMIN) 


□ guide pratique 

78.50 F 

□ assembleur . 

490 

□ découverte de foric 

95 F 

□ easy text 

590 

□ oric à l'affiche 

95 F 

□ multifich 

590 

□ oric atmos pour tous 

105 F 

□ cale 

590 

□ 52 prog. pour tous 

105F 

□ forth . 

590 

□ l’assembleur de l’atmos 

95 F 

□ jasmitel 

490 

□ interfaces pour oric 

59 F 

□ mathégraph 

249 

[J l’oric à nu 

150 F 

□ finances 

219 

□ programmes en lang. mach 

95 F 

□ conquérants 

219 

□ manuel référence tome 1 

□ manuel référence - tome 2 

138 F 
120F 

□zonga 

199 


Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC I 
□ imprimante MCP 40 990 F 


Cassettes vierges C20 

□ les 5. 

□ les 10 

□ disquette vierge 3 pouces 


9 ® 


45 F 
80 F 

35 F 


Câble Imprimante 

Vous permet de connecter votre Oric à n'importe 
quelle imprimante au standard “centromc" 

□ câble imprimante 160 F 

Cible Moniteur 

Pour brancher votre Oric à un moniteur mono¬ 
chrome 

□ câble moniteur 95 f 



m 


L'IMPRIMANTE PERSONNELLE 
COULEUR "OKIMATE 20" 

L'OKIMATE 20 est la première imprimante per 
sonnelle dans sa gamme de prix à offrir une 
véritable impression cculeur Une tète d'impres 
sion à 24 éléments crée plus de 100 nuances d'une 
définition et d’une netteté exceptionnelles 
Interface centronic 

□ okimate20 2950 F 



TIRVITT 2 

Esthétique, robuste, pratique le TIRVITT 2 vous séduira 1 
Contacts par micro switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVITT 2. 150 F 



Des boites géniales pour ranger vos supports. 

□ pour disquettes 5" 1/4 . 180 F 

□ pour disquettes 3" et 3” 1/2. 160 F 

□ pour cassettes . 99 F 



□ joystick compétition PRO 5000 . 

.195 

□ bloc alim. ORIC. 

.160 

□ alim 12 V pour péritel. 

. 75 

[ i stylos pour MCP 40 (les 4) . 

.... 49 

rouleaux papier MCP 40 (par 2) . 

. 60 

□ rallong de bus 1 slot. 

110 



Le "must" pour les amateurs de graphisnr Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisatior la qualité 
"top niveau' des résultats obtenus, (ex. 1 ions : faire 
des points, traits, boites, cercles, texte, renier, "zoom". ) 
□ GRAPHISCOP 999 F 


COMMENT COMMANDER : J '>’ ossMe C10RIC! □ ATMOS 

- Cochei lelsl article!s) desirtHsl ou faites en une liste sur une touille a part - Faites le total + Irais lie port 120 F pour achats inférieurs à 500 F. 40 F de 500 a 1000 F. 60 F pour tout achat supérieur à ’JOO F). 

NOM : _ PRENOM :_ TEL :_ 

ADRESSE :_CODE POSTAL : _VILLE : _ 

Mode de paiement : ü chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES réseau SUEES 


Tous nos prit sont indicatifs et en fonction dos stock] 

















































































































































































COURRIER 



Pour obtenir une réponse au 
courrier, il est indispensable de ne 
poser que 3 questions par lettre, 
au maximum, de joindre le cou¬ 
pon "courrier" découpé dans la 
revue et une enveloppe affran¬ 
chie self-adressée pour la 
réponse. Ces deux dernières pré¬ 
cautions ne sont pas indispensa¬ 
bles si vous êtes abonné ; par 
contre, il faut nous joindre, dans 
ce cas, l'étiquette informatique 
qui vous parvient, chaque mois, 
avec la revue. 

Nous ne répondons pas au cour¬ 
rier ne remplissant pas toutes ces 
conditions. 



S'IL N'EN RESTE QU'UN... 

Réponse aux angoissés et à tous 
ceux qui ne savent plus quoi faire 
de leur ORIC... Un bel exemple 
qui devrait leur donner des idées ! 

Inutile de se leurrer : ORIC bat de 
l'aile. Depuis plusieurs mois, les 
logiciels commerciaux se font 
rares, les éditeurs nous boudent, 
nous ne savons pas si le TELE- 
S TR A T sortira un jour de sa stra¬ 
tosphère confidentielle. Les petits 
ORIC se bradent au profit de ruti¬ 
lants bolides aux 16 bits en tête 
et méga-octet sous le capot : rien 
n'arrête le vertigineux progrès 
technologique. 

Et c'est bien ainsi. Après l'en¬ 
gouement inconsidéré du début 
de la décennie, nous entrons 
peut-être dans l'âge de raison : 
Tinformatique est désormais 
démythifiée. L'ordinateur familial 
était une bien bonne blague de 
marchands : toutes les familles 
savent aujourd'hui que cette 
petite boîte ne sert à rien ou pres¬ 
que ! 


Reste le HOBBY. L'informatique 
en amateur est un passe-temps 
aussi enrichissant que le jeu 
d'échecs, le maquettisme ou la 
broderie au point gobelin : 
comprendre et créer, la machine 
n'est qu'un outil. ORIC aussi a 
mûri et compte ses rangs. Les 
frénétiques du joystick nous quit¬ 
tent pour des sensations plus for¬ 
tes. Les logivores (vous savez, 
ces collectionneurs de centaines 
de logiciels qui ne sauraient ali¬ 
gner dix lignes de Basic) s'en 
vont vénérer d'autres sacs à 
puces. Les déplombeurs fous — 
je les aime bien : ils n 'ont pas leur 
pareil pour décortiquer une 
machine ou un programme — 
s'apprêtent à pirater sous d'au¬ 
tres latitudes. Les utilisateurs 
semi-professionnels se précipi¬ 
tent sur les combatibles dégrif¬ 
fés... 

Qui restera fidèle à ORIC ? Ceux 
qui ont compris que l'ORIC reste 
et restera longtemps une merveil¬ 
leuse petite machine d'initiation. 
Ceux qui savent qu’un program¬ 
meur amateur est plus à l'aise 
dans les 64 K qu 'il maîtrise bien 
(voyez les mines de qualité dans 
THEO RIO ou dans le livre de 
Fabrice BROCHE) que dans un 
vaste système professionnel. 
Ceux qui, admirant le dernier logi¬ 
ciel pour MACINTOSH, se disent 
qu'ils peuvent en trouver des 
algorithmes de base et program¬ 
mer sur leur ORIC quelque 
chose d'avoisinant, tout en 
sachant fort bien qu 'ils n 'ont pas 
à rivaliser avec des équipes entiè¬ 
res de programmeurs profession¬ 
nels travaillant des mois sur des 
programmes destinés à combler 
un maximum d’utilisateurs. 

L'amateur est avant tout indivi¬ 
dualiste : le meilleur programme 
sera toujours le sien. Tenez : 
savez-vous quel est le meilleur 
traitement de texte, celui que 
j'utilise avant VORTEX, ORI- 
SCRIBE ou AUTHOR, avant 
même un WORDSTAR ou TEX- 
TOR ? C'est le mien ! A force de 


lui avoir ajouté des fonctions et 
des extensions, c'est devenu un 
infâme embrouillamini où je m'y 
perds moi-même et vous n'en 
voudriez pas pour tout l'or du 
monde. Mais j’y tiens, pensez : 
19 versions sur deux ans et ce 
n’est pas fini ! 

Vous avez compris : je resterai 
fidèle à ORIC, sourd aux petits 
camarades qui me font miroiter 
tous les "plus" de leurs nouvel¬ 
les bécanes. J’aime à dire cha¬ 
peau bas à tous ces purs qui 
poussent encore dans ses der¬ 
niers retranchements leur vieux 
ZX81. Les vrais O RI Cl ENS sont 
heureux de rejoindre ces pion¬ 
niers, comme viendront nous 
rejoindre, n’en doutez pas, les 
vrais dingues des CPC... 

Au moment où le micro-ordina¬ 
teur grand public glisse vers le 
professionnel ou semi-profes¬ 
sionnel (mais, avez-vous vrai¬ 
ment besoin d’un DBASE-III chez 
vous ?), le micro-hobby doit 
maintenant trouver son véritable 
créneau, notamment auprès des 
jeunes. J’aimerais qu’une société 
comme EUREKA, qui préside à 
notre destinée, puisse s’impré¬ 
gner de l’esprit amateur. Regar¬ 
dez, par exemple, comment se 
comporte vis-à-vis de sa clientèle 
une société (allemande) de trains 
électriques miniatures ou une 
société (américaine) de kits élec¬ 
troniques. Il s'agit, pour de telles 
sociétés, de se poser en «tutri¬ 
ces» du hobbyiste en lui fournis¬ 
sant le maximum de renseigne¬ 
ments sur les ressources maté¬ 
rielles et logicielles de leurs pro¬ 
duits. Prenons le SEDORIC : bien 
qu'un effort certain ait été fait 
dans la documentation, l’idéal 
aurait été d'en donner les ficelles 
au Heu de nous laisser "dumper" 
plus ou moins dans le vague. Et 
ne parlons pas de l’état actuel de 
la doc du TELESTRAT. 

Dans le même ordre d'idées, per¬ 
mettez à un amateur de soumet¬ 
tre une réflexion aux profession¬ 
nels (nous savons bien que les 


Pas d'étiquette abonné ou pas d'enveloppe self- 
adressée égale pas de réponse au courrier. Qu'on se 
le dise I 
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nouvelles. 


meilleurs d'entre eux sortent de 
nos rangsI : vous feriez un mal¬ 
heur si vous vouliez bien 
commercialiser des «logiciels 
ouverts». Un logiciel ouvert est 
un programme, même écrit en 
Basic, non protégé, accompagné 
d'une copieuse documentation (à 
faire fuir les copieurs !) donnant 
toutes précisions sur la construc¬ 
tion du programme, ses astuces, 
ses routines et tout ce qu'il faut 
savoir pour adapter, modifier, 
transposer et améliorer le pro¬ 
gramme à sa guise. Que le 
hobbyistepuisse se dire : "C'est 
mon programme I". Un logiciel 
didactique en somme. Mettez un 
peu vos spécialistes en marketing 
là-dessus pour voir. 

J’aimerais dire encore combien 
nous avons besoin de THEO RIC. 
Cette revue nous est indispensa¬ 
ble pour progresser. Quel que soit 
votre niveau, du débutant ravi de 
sa première boucle FOR... N EXT, 
au forcéné du LM écrivant son 
compilateur ADA, nous avons 
besoin de nouvelles idées, de 
nouvelles terres à défricher, de 
nouvelles frontières et de pouvoir 
nous dire encore : "Pas mal ce 
programme, je vais me l'amélio¬ 
rer... 

THEORIC est notre revue, et per¬ 
sonne ne la fera à notre place : 
restons des passionnnés d'ORIC. 

Michel ZUPAN 

C'est volontairement que nous ne 
reproduisons, ce mois-ci que 
cette seule et unique lettre dans 
notre rubrique. Méditez-la ! 



TELESTRAT AU 
CATALOGUE "3 SUISSES'' 

Il est entré dans le célèbre cata¬ 
logue... On vous propose la 
machine et ses cartouches de 
logiciels : ORIC-1, ATMOS, 
TELEMATIQUE et Basic. C'est 


vrai, sur un catalogue de VPC, on 
est obligé d'avoir un peu 
d'avance... 

REPRISES A TOUR DE BRAS 

EUREKA annonce la reprise des 
ORIC-1 et ATMOS 690 F pour 
l'achat d'un TELESTRAT, ce qui 
porte son prix à 3300 F. Rappe¬ 
lons que le TELESTRAT peut 
recevoir une cartouche ROM 
ATMOS ou ORIC-1. Il vous en 
coûtera 200 F pour faire tourner 
vos anciens programmes. 


Des nouvelles du TELESTRAT ? 
On l'attend toujours ! La machine 
est commercialisée mais sans 
son Basic ou plutôt avec une car¬ 
touche contenant un Basic «res¬ 
treint». Par contre, la fonction 
«TELEMATIQUE» est opération¬ 
nelle depuis 3 mois. A l'heure où 
nous écrivons ces lignes, fin juil¬ 
let, EUREKA nous promet une 
machine avec son «HYPERBA- 
SIC» vers le 15 août... Rendez- 
vous dans le numéro d'octobre 
pour le banc d'essai ? Chiche ! 


ABONNEZ-VOUS 

voir page22K»KWM^^Ki 


REEDITION 


M.LEVREL F6DTA 


INTERFACES 
POUR 
0RIC1 
ET 

ATMOS 


Prix : 59 F 

+ 10 % de port 


I 

1 

■| 
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S 

1 


ROBOTIQUE, E.A.O., AUTOMATISMES 


■ BON DE COMMANDE 

Je désire recevoir."INTERFACES POUR ORIC-1 ET ATMOS" 

■ contre.F en chèque bancaire, CCP, mandat* à l'ordre des 

Editions SORACOM, La Haie de Pan, 35170 BRUZ. 

| Nom .Prénom . 

■ Adresse . 

Code Postal .Ville . 

J * Rayer !•> mentions inutilei. 
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C est la rentrée 1 Nos chers petits s'intéresseraient-ils à 
l'ordinateur ? Oui, quand on leur propose un jeu édu¬ 
catif bien conçu et coloré... 


TABLORIC est un éducatif du 
niveau CP/CE1 qui rendra bien 
des services aux parents, ensei¬ 
gnants et éducateurs. 

Dans un tableau à double entrée, 
le logiciel affiche, au choix, let¬ 
tres, chiffres, dessins et figures 
géométriques associés à 3 cou¬ 
leurs et ce de façon aléatoire. 
Une option «mélange au hasard» 
a été prévue afin de «corser» la 
difficulté. 

Deux niveaux sont prévus : avec 
ou sans aide. En choisissant le 
dernier, ORIC affiche, après cha¬ 
que erreur, la réponse correcte 
avant de reposer la même ques¬ 
tion. 

Le programme se termine par l'at¬ 
tribution d'une note et d'une 
moyenne permettant d'évaluer le 
taux de réussite de l'élève. 
ATTENTION : A cause du PRINT 
, ce logiciel ne tourne pas sur 
ATMOS. De plus, il est néces¬ 
saire de posséder un écran cou¬ 
leur. 

B s?EM========================= 

20 REM============================== 

30 REM+1-+++++++++++++++++++++++T++++ 

40 R£M4.+. TABLORIC *++ MAI 35 ++++-+ 

50 RFM+++ REGIS CAHIER •*■+++++•‘+♦4+++ 

100 R£M====s====================== 

110 RE*=============“========"-===- 

120 PEM CREATION RES T 0RE N 

: 30 FORAD=#7500TO#7510 :READAf:A=VAL 1 ’* 
4Aî i :P«EAD. A:NEXT:DOKE#2F5.#750e 
140 DATA20.53.Ed, 20,B3.Ce.C6.CE,A5.CE. 


B5.B0.A5.CF.85.Bl.60 
150 REM===================="======= 

160 CLS:PAPER0:!NK7:POKE46000.3 
170 û*=’R.C MAI 85' 

180 0=LEN(C|*):FORT=lTOO:POKE48029+ T ,AE 
C(MID*<0*.T.l)):NEXT 

200 REM====PRES£N7AT 10N===== 

210 REf*f===============-= 

220 TI$="TABL0RIC" 

230 PL0T17,l,TI$:PL0717.2.TIî 
240 PL0713.1.14 :PlOT13.2,14:PLOT]4,1,6 
: PLOT14,2,2 

250 plot 10.5.■tableaü a double entree* 

: PLOT?.5.1 

260 PLOT11,9."UTILISEZ LEE FLECHES*:PL 
0T6.il. 'VALIDEZ AVEC lA BARRE D’ESPACE* 
270 PL0T9.15.2 

280 PlOT10.15,‘NIVEAU DE DIFFICULTE* 
290 PLOT15,17,“1- SANS AIDE *:PL0T15,1 
9.*2- AVEC AIDE* 

300 PLOT 13.23.5 

310 PRINT814,23;'VOTRE CHOIX (l/2)';:fc 
ETNIV* 

320 NIV=VAl(NIV$) 

330 IFNIV<1ORNIV>2THEN310 
340 PL0T5.26.7:PlOT 6,26.12:PL0T12,26,' 
PRESSER UNE TOUCHE':GETAt 
350 CLS:PL0 Ti7.3,TI$:Pl0T17.4,TI$;PL0 t 
13,3.14sPL0T13,4,14 

360 PLOT14.3.3:PLOT14.4,6:PLOTi2.14,2: 
°L0T12,16,3:PL0T12,18,5 
370 PRINT3B. 10:'CHOISISSEZ ENTRE :* 

380 PRINTÔ15.14;'l- FORMES GEOMETRIQUE 
S':PRINT315.16:'2- LETTRES*:PRINTâH5,1» 
;'3- CHIFFRES' 

390 PRINT9i5.22;"5- MElANGE AU HASARD" 
:PL0T10.22.4 


400 PRINT315.20;'4- DESSINS': PLOT 10.20 
.1 

410 PRINT314,26;'VOTRE CHOIX T;:GETCH 
*:CH=VAL(CHt) 

428 IFCH>50RCH<1THEN41B 
430 CLS 

440 PL0T17,7.TI*:PL0T17.8.TI$ 

450 PLOT13,7,14:PlOT13,8.14:PL0T14,7.6 
:PL0T14,8.2 

460 PL0T8,20.1:PL0T9,20,12:PLOT 10,20.* 
PATIENTEZ UNE MINUTE* 

470 P0KE61B,2 
480 PRINTCHR$(o) 

490 DIMA$(16l:DIMZ$(9).C0t(3) 

500 DIMP$(10.10 ):DI(1V$(15) 

510 PAPER0:INK7 

520 REM================== 

530 REM=== DEF1NITI0NS=== 

540 IBl» =«== =» 

550 A*(1 » =CHR$1138)+CHR$(129)+CHR$(97) 
+CHR$(9fl) 

560 Aî <2)=CHR$(138)+CHR*(130)+CHR$i97) 
+CHRK98) 

570 A$(3)=CHRS(138)+CHRS<131)+CHR*(97I 
*-CHR$i?8) 

580 f*!4)=CHR*(97)4CHR$(98) 

598 A$(4)=CHR$(138)4ChR$(129)+CHR*(101 
)+CHR$(102) 

600 A$(5)=CHR$1138)+CHR$ U 30)+CHR$(101 
)+CHR$(102) 

610 A*(6)=CHR*I1361+CHR*(131)+CHR$(101 
)+CHR$(102) 

620 Z$(5)=CHR$i101)+CHR$(102) 

630 A$(7)=CHR*(I38)+CHR$(129)+CHR*(103 
)+CHR$l104) 

640 A$(8)=CHR$(138)fCHR$i130)+CHR$(103 
i+CHRt(104) 

650 A$(9)=CHRV138)+CHR$(131)+CHR*(103 


8 






























)+CHRJ(104) 

660 Z*(6)=CHR*<103)+CHR*(104) 

670 A$ ( 10 ) =CHR$ (138) +CHR1 (129) i-CHR* ( 10 
5)+CHR$(106) 

680 A$(11>=CHRi(138)+CHR*(130)+CHR*(10 
5)+CHR$(106) 

690 A$(12)=CHR$(138)+CHR«(131)+CHR$(10 
5)+CHRf(106) 

700 Z$(7)=CHR$(!05)+CHR$(106) 

710 A$(13)=CHR$(138)+CHR*(129)+CHR*(10 
7)+CHR$(108) 

720 A$(14)=CHR$(138)+CHR*(130)+CHR*(10 
7)+CHR$(108) 

730 A$(15)=CHR$(138)+CHR$(131)+CHR$(1B 
7)+CHRi(108) 

740 Z$(8)=CHR$(107)+CHR$(108) 

750 C$(1)=CHR*(138)+CHR*(129)+CHR*(255 
)+CHR$(255)+CHR*(135) 

760 C$(2)=CHR*(138)+CHR*(130)+CHR1(255 
)+CHR$(255)+CHR$(135) 

770 C$(3)=CHR$(138)+CHR$(131)+CHR*(255 
) -*-CHR$ (255)+CHRÏ(I35) 

780 C*(4)=CHR$(138)+CHRÏ(97)+CHR$(98) 
790 C$(5)=CHR$(138)+CHR$(101)+CHR$(102 

) 

600 C$ < 6 )=CHR$(138)+CHR*(103»+CHR*(104 

) 

310 C$(7)=CHR$(138)+CHR$(105)+CHR4(106 

) 

320 C$(8)=CHR$(138)+CHR$(107)+CHRî(108 

) 

830 RErl- 

840 REM-REDEFINITION CARACT.- 

850 REM-- 

860 '880 

870 FORT=46872T046887: READZ:POKET.Z :NE 


910 IFCH=5THEN950 

920 IFCh-4THEN: 1 280: G0T097e 

930 I980:GOTO970 

950 X=RND(1)*200+1000+INTiRND(1)*100): 

'X:GOTO970 

970 F0RT=46856T046871 :READZ:POKET.Z : NE 

XT:F0RT=46888T046951:READZ:POKET.2 : NE X T 
980 DATAI,3,3,15,15,31,63,63 
990 DATA32.48,48,00.60,62,63.63 
1000 DATA3,7,31,63,63,31,7,3 
1010 DATA48,56,62,63,63,62,56.43 
1020 DATA0.0.0.15.15,15,0,0 
1030 DATA0.0,0,63,63.63,0.0 
1040 DATA3,3,3,63,63,3,3,3 
1050 DATA48,48,48.63.63,*8,46.48 
1060 DATA0.0,31,31,31,31,31,31 
1070 DATA0.0.62,62,62,62.62,62 
1080 DATA3!.31.24,31,7,0,31,31 
1090 DATA62,62,0,62.62.14.62,6? 

1100 DATA31,31.0,0,0,0,0.0 
1110 DATA62.62,14,14,62,62,14,14 
1120 DATa 31,31,24,31.31,24,31,3t 
1130 DATA62.62.0,62,62,6.62,62 
1140 DATA31,31.24,31,31,24,31,31 
1150 DATA62,62.6,62.62.6.62.62 
1160 DATA31,31,24,31,31.0,31,31 
1170 DATA62,62,6,62.62.6.62,62 
1180 DATA31,31,24,24,31,31,24,24 
1190 DATA62,62,6,6,62,62,6,6 
1200 DATA31,31,28.31,31,28,31,31 
1210 DATA62,62,0,32,32.0.62,62 
1220 DATA31,31,28,28,28,28,31,31 
1230 DATA56,62,6,6,6,6,62,56 
1240 DATA31,31,28,28,28,28,31,31 
1250 DATA62,62,0,0,0,0,62,62 
1260 DATA31,31,24,31,31,24,31,31 


• !270 DA T A4S,56.2«,60. ai. 6,62,60 
1230 DATAI,3,7,15.25,31.30,30 
1290 DATA32.48.56.60.38.62,30.30 
1300 DATA3,1.1,17,17,25.15,1 
1310 DATAIS,32.32.34,34.38.60,32 
1320 DA T A0.0,31,31.15,7.0,0 
1330 DATA0.8.62,58,62,48.0,0 
1340 DATAI,3.7,15.1,63,31,0 
1350 DATA32,48.56,60.32.63,o2.0 
1360 DATA0.6,10,16,63,34,63,0 
1370 DATA0,3,5,9,56,8,56.0 
1380 RE,M+++++++++***++f+++++ft'+* 

1390 REM +++ CREATION T ERRAIN **■«• 

1400 REM t+++++++T*+++++++4+-» ♦♦♦*■ 

1410 : 1450 

1420 F0R T =1Ï0!3:READA 
1430 C ORU=0TO7: READS :POKE46080+3*A+i*, 5 
1440 NEXTW.T 

1450 DATA10R.12,12,12,12.12,12.12,12 
1460 DATA1I0.0,0,0,15,15.12,12.12 
1470 DATA111.0,0.0,63,63.0.0,2 
1480 DATA112.0,0,0.60,60.12.12.12 
1490 DATAI 13.12,12,12,15,15.0,0,0 
1500 DATAU4.12,12.12,60.60.0.0.e 
1510 DATAI 15,12,12.12,63.63.12,12,12 
1520 DATAI 16,0.0.0.63,63.12.12,12 
1530 DATAI 17.12,12,12,63,63,0,0,0 
1540 DATA! 18.12.12.12,15.15.12.12,12 
1550 DATAI 19.12,12,12,60.60,12,12,12 
1560 DATA120.3,7,9,17,1,1,1,1,12! ,48.5 
6■36,34,32,32,3 a,3î 
1570 CLS 

1580 PLOT30,3,TI$:PLOT30.4,TI$ :PL0T28. 
3.10:PLOT28,4,10 
1590 PL0T29,3.6:PL0T29,4,2 
1600 PLOT1,2, ’noooootoooooTOOOOotooooo 
6 " 

1610 F0RT=3T023STEP4 

1620 PLOTl.T.“m m * a 

a' 

1630 PL0T1, T+l, •** a a "• 

in 

1640 PL0T1.T+2,’a a a a 

a* 

1650 ?lOT 1.T+3."VOOOCOSOODOOSOODCOSQOü 
004! ’ 

1660 NEXTT 

1670 PLOT 1.26, l< qooooouooooouccoocuocco 
or’ 

1680 REM4+++44++++++-t-++++ 

1690 REM+*+ AFFICHAGE *++ 

1700 REM* t "* , 4++++++f+++++++ 

1710 P=1:H=28:V=9 
1720 FJ=CHR$(140)+*xu* 

1730 PRINT328.9;F* 

1740 FORZ=7T023STEP4:F0RV=27T035S T EP4 
1750 PRlN T av,Z:A»(p! 

1760 PRINT3V,Z*1;A*(P):P=P+! 

1770 NEXTV.Z 
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1760 H=28:V=9:VD=32 
1790 GOSUB1900 

1800 RE»=======—=============== 

1810 REM=== PLACEMENT INTERRO.===== 

1820 R£M==================== 

1830 ü= 8:F=7 
1840 PRINTaH*!.V;‘ * ' V 

1860 B RINTdS,F;CHR*(l42) + ’cd'+CHRJ(138 
)+CHRt(135) 

1870 PRINTâG.F+l;CHR$il42)+ 1! cd , +CHR$(l 
3B)+CHR$(135) 

1880 SO T O2250 
-890 PEM============= 

1900 PEM ==7[PAGE=== 

1910 REM============= 

1 B 20 A=:N7(RnD( 1)»3+11 
1930 F0RX=lT03:î*^;=C*iA: 

.P4e GOSUB2370 
l B 5e IFA=3 ThENA= 0 
;9s0 «=A*i:NE*Tx 
1970 B=INT(RND(i1*5*4! 

1980 F0RX=4ï08:BSiX>=C5(B> 

1990 WSiX>=2*<B) 

2000 !FP=8 T HENB=3 

20le B=B+!:N£XTX 

2020 REM================== 

2030 'AFFICHAGE ENTREES 
2040 REM================= 

2050 PRINT32,7;B*(4):PRINT32.8;B*<A1 
2060 PRINT32,11 ; B*(5):PRINT32,12:35(5 1 

2070 PRINT32.15:B*(6):PRINT32,16:B5(fc‘ 

2080 PRINT32,19; B* ( 7 ) : PR INT32,20; B$ •' 7 

2090 PRINT32.23 :B5<8):PRINT32,24 : B»<8■ 

2100 PRINT38.3 ; B* <1):PRINTÔ8.4;B* <1) 
2110 PRINT31A,3;E5(2):PRINT31A.A;B5(2) 
2120 PRINT320,3;ÏS(3);PRINT320.4:B*'3) 

2130 REM========================= 

2140 REM CALCUL CORRESPONDANT 
2150 REM========================= 

2160 FORX=ATOB:FORV=1T03 
217e p *< X.V)=COS<Y)+W5 < X > 

2180 NEX7Y.X 



mftlTFÆj 

/?inn\ww \ 



2290 IF P= 180 THENV=V+4 :VD=V-4:HD=H: IFV> 
25THENV=25:VD=21 

2300 IFP=156TH£NV=V-A sVD=V+4:HD=H:1FV 
9 ThENV=9:VD=!3 
2310 IFP=132THEN2A30 
2320 PRINT3m.V : F$ 

2330 PRINT3H0+1.V0; 1 * 

2340 HAIT20 
2350 GOTO2260 

2370 REM===CORRESP.COULEUR==== 

2380 REM=========—==========■ 

2390 IFB5(X)=C5(1)THENC05(X)=CHP$ <138 
+CHR5Ü29) 

2A00 IFB5(X)=C5(2)THENC05(X1=Chfi5(138 
+CHR51130) 

2410 IFBS(X)=C$(3 >THENC05(X)=CHRî■138 
+CHR5U31) 

2420 RETURN 

2430 REM============================ 

2440 REM== CONTROLE VERIFICATION === 
2450 REM========================= 

246e IFH=28THEN2490 
2470 IFH=32THEN2550 
2480 IFH=36THEN2610 
2490 IFV=9THENA*=A$;i) 

2500 IFV=13THENA5=A5'4) 

2510 IFV=17THENA$=A$(7) 


2190 X=4:Y=! 

2200 RETURN 

2210 REM=========================== 

2220 REM== DEPLAC. Fi.ECHE========== 

2230 REM=========================== 

22*0 wAIT20 

2250 hD=32:vD= 09:H=23:V=9 
2260 F-FEEn 1 *208; 

2270 IF°=172THENH=H-4:nD=n+4:'. , D=V: IFH< 
28ÏHENh=28:HD=32 

2280 I-P=l 88THENH=H+4:HD=H-4:VD=V:IFH. 
36THENH=3o:HD=32 


2520 IFV=21THENA$=A$(101 
2530 IFV=25THENAS=A5(13) 
2540 GOTO2660 
2550 IFV=9THENA5=A$<2) 
2560 IFV=13THENA5=A$(5) 
2570 IFV=17THENA5=A$(8) 
2580 IFV=21THENA5=A5(11) 
2590 IFV=25THENA5=A5(14) 
2600 GOTC2660 
2610 IFV=9THENA5=A$(3) 
2620 IFV=13THENA5=A5(6) 
2630 IFV=17ThENA$=A$(9) 


2640 IFV=21THENA$=At(12) 

2650 IFV=25THENA$=A<(15) 

2660 REM============== 

2670 REM===GAGNE OU PERDü=== 

2680 REM================= 

2690 IFA$=P$(X,Y)THENPING:«AIT40 
2700 PRINT3G.F;A$:PRINT3G.F+1;A$:WAIT9 

0 

2710 IFN1VO2THEN27A0 
2720 PRIN73G.F ;P$(X.Y):PRINT3G,F+!;P$( 
X, Y) 

2730 WAIT90 

2740 IFA$OP$(X.Y)THENNO=NO+l :GOTO1340 
2750 ô=6+6:IFG>20THEN5=8:F=F+4 
2760 IFF >23 THENGOSUB3000:GOT02810 
2770 Y=Y+1:IFY)3THENY=1:X=X+1 
2780 PRINÏ3H+1.V:’ * 

2790 GOTO1860 

2800 REM======================= 

2810 REM=== NOUVELLE PARTIE === 

2820 REM======================= 

283e PL0T17,1,TI$:PLÔT17,2,TI5 
2840 PLOT1,1.2:PL0T15,2,3 
2850 CLS:PRINT3l1.20:‘VOULEZ-VOUS REJO 
JER ?* 

2860 PLOT18,3,TIS:PLOT18.4,TI5:PLOT2,3 
.10:PLOT2.4,10 
2870 PL0T3,3,5:PL0T3,4.6 
288e PL0T2,14,1:PL0T3,14,12 
2885 N1=N0 

2890 IFNC>i5THENNô=i5 
2900 PRINiaiB.Î0;*VOTRE SCORE: ';15-N0 
;* SUR 15‘ 

2910 PRINT315.14;5TR$(N1>:3l8.14;“ ER« 
EUR 1 

2920 IFNO ; 1THENPRINTS25.14;*S* 

2930 N0=U5-N01/3*2 

2940 PL0T14,24.‘MOYENNE: *:N05=LEFT*(S 

TR5(NO),5):PL0T23,24.NOS:PL0T29,24,*/10 

■ 

2950 PLOT 13,24,2:PLOT22,24,5 
2960 GEtA*: IFA$=■N-THENCLS:D0NEF2F5. *“ 
00:CALL#F6D0:END 
297e IFAî="O*THENCLS:CLEAR:RUN 
2980 IFA$<> ; 0‘ANDAS < >*N‘7HEN2960 
3000 REM============ 

3010 REM== MUSIQUE == 

3020 REM============= 

3030 PLAY7,0,0,0 
3040 MUSICl.4,2,10 
3050 MUSIC2,4.5,11 
3060 MUSIC3,4,8.12 
3070 F0R0=3T06:F0RN=6T012 
3080 MUSIC1,0,N,15 
30P0 HAIT10 

3100 NEXTN:NEXTO 
3110 PLAY0,0,0,0 
3120 PING 
3130 RETURN ■ 
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MINI-EDITEUR 

BASIC 

I Pascal GRENIER 

# 

éditeur de l'ORIC n'est pas des plus pratiques, chacun 
le sait et, quand on veut insérer ou effacer un caractère, 
I il arrive que le résultat obtenu ne soit pas celui qui était 
recherché. Voici une routine en langage machine capable de 
remédier au problème. 


Il s'agit d'un mini-éditeur Basic, 
permettant d'effacer (CTRL E) ou 
d'insérer (CTRL V) un caractère 
dans une ligne Basic modifiée par 
EDIT. 

De plus, après la commande 
EDIT, le curseur sera ramené 
juste avant le numéro de ligne et 

10 ’ MINI EDITEUR BASIC 

20 ’ °ar Pascal GRENIER (12/85) 

30 ’ 

40 ’ Touche CTRL-E pour effacer un 
caractère 

50 ’ Touche CTRL-V pour insérer un 
caractère 

60 ’ 

70 ’ Fonctionne seulement avec la 
commande : EDIT 

80 ’ 


ce quelle que soit sa longueur. 
Les 13 lignes de DATAS ne 
devraient pas rebuter ceux qui 
sont à la recherche d'utilitaires 
capables d'améliorer le Basic de 
l'ORIC. 

ATTENTION : ce programme ne 
fonctionne que sur ATMOS ! 

90 ’ Apres lancement du programme 
par RUN (implant,#9800-1*9917! 
100 ’ tapez: EDIT 130 
110 ’ et cornqe: le motroraphioue 
120 ’ 

130 ’ GRAFIQUUE 
140 ’ 

150 READ AD 

160 REPEAT:PEAD A$:IFA$=**‘THEN 180 
170 A=VAL(*# , +A$):ROKE AD,A:AD=AD+1 
180 UNTIL A$="*' 


190 DOKE#F0,#9880 
200 END 

210 DATA #9800 

220 DATA 4C,23.CA,20,E2,CA,20.B3.Cô,90 
.F5.6E,F2,02,20.6C.C 7 .4E,Fi.02 
230 DATA 20,4#,98.A9.3B,20,D9,CC,A0,24 
,B1.12,C9,20,D0,F3,83,C0.02,D0 
240 DATA F5,AR,0A.20.D9,CC,o8,66.20.57 
, C4,A9,78.8D,3C.02.A9,EE,8D,JD 
250 DATA 02,60 ! EA,EA.EA,EA.EA,EA,AC 1 6? 
.02. A9.00.9l, 12,20.F0, CB.A9.60 
260 DATA 8D.3C.02.A9.&8,3D,3D.02.60 .£a 
.EA,EA,EA.EA,EA,EA,C 9,05,D0,0t 
270 DATA 20,90.98.4C.78. EB,C9.16.50,03 
.20,E0,9S.4C.78,EB.EA,EA,EA,tA 
280 DATA EA,EA.EA.EA,EA.4C,B9,EC,C9,31 
,D0, F9,20,E2,00.4C,03,98,EA,EA 
290 DATA EA,EA,EA,EA,A5,12,85,10,A5,13 
,85,11,AC.69,02.8“.0F,C0.27,D0 
300 DATA 20,18,A5,12,69,27,90,02,E6,13 
.85,12,A0.03,BI,12,08,A0.00.28 
310 DATA P0,17,91,12,18,£6,12.90,02.E6 
. 13. A0,02,CS,El,12.F0.06.00,91 
320 DATA 12,C8,D0,D1.88,A9,20.9i,12,A5 
,10,85.12,A5,11.85,13,A5,0F,8D 
330 DATA 69,02,60,EA,A5,12,85,10,A5,13 
. 85,11, AC, 69,02,84,0F,A9,20,85 
340 DATA 0D,B1,12,85,0E,A5,0B,29,7F,91 
.12. F0.16,A5,0E,85,0D,CS,C0,28 
350 DATA 00,EB,18,A5,12,69,28,90,02,E6 
,13.85.12.A0,02.D0,DC,4C,D1.98,* 


PROTEGEZ 
VOS REVUES! 


CPC Revue standard Amstrad Schneider 

dossier classeur jean, logo et titre blanc 
Prix TTC port inclus : 74 F 
Abonnés : SI F 




THEORIC, Revue des utilisateurs d'ORIC 

dossier classeur gris, logo titre rouge 
Prix TTC port inclus : 80 F 
Abonnés : 59 F 


MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC port inclus : 78 F 
Abonnés : 55 F 


Nom . . 
Adresse 


BON DE COMMANDE 

.Prénom . 



mf* 00 ' 


de 


6° n a tdifioirt 


lo 


tfo>« 


CLASSEURS 

PRIX 

NBRE 

MEGAHERTZ 

Abonnés 

55,00 



Non Abonnés 

78,00 


CPC 

Abonnés 

51,00 



Non Abonnés 

74,00 


Théorie 

Abonnés 

59,00 


' r e<o^ OU *\- 

Non Abonnés 

80,00 


AÏS* \ 

J- poo \ 
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♦PORT 10* à la commande 

















Le Basic ORIC ne dispose pas de 
l'instruction PRINT USING ; ce 
logiciel comble cette lacune en 
permettant l'impression de varia¬ 
bles, selon un format défini par le 
programmeur. 


LES FONCTIONS 

Les variables entières et flottan¬ 
tes sont imprimées en effectuant 
un cadrage à droite dans la zone 
d'impression définie. Les varia¬ 
bles alphanumériques sont 
cadrées à gauche ou bien cen¬ 
trées dans la zone d'impression. 
La syntaxe d'appel à cette fonc¬ 
tion est la suivante : 

I r PRINT 1 

Llprint J 

n° de ligne du format, 

(nombre ou expression 
numérique) 


liste des variables ou expressions 
à imprimer |;| (séparées par des virgules) 


PRINT imprime à l'écran, LPRINT 
sur imprimante (testé sur GP 
100A). 

Les variables peuvent être entiè¬ 
res, flottantes, dimensionnées ou 
chaînées et doivent être séparées 
par des virgules. 

Le point-virgule, en fin de ligne, 
s'il existe, indique que le prochain 
PRINT (formaté ou non) s'effec¬ 
tuera sur la même ligne. Le for¬ 
mat d'impression est décrit par 
une instruction REM qui possède 
la syntaxe suivante : 
n° de ligne REM (liste des des¬ 
cripteurs). 


CESSION 


Maurice PROMONET 

100D h I MEH#97FF : F0RN=#9800T 0I9D93 : READAt : A=VAL ( : POKEN. A : NEXT : END’ 

1010 DATA A9,00,85,05,85,04,85,08, AD, A8,00,8D,90,9D, AD, A9,00,8D,91,9D 
1020 DATA 2D.EB.00,C9,8F,D0,17,E6,04,AD,02,C0,C9,EC,D0.06,20,16,C8,AC 
1030 DATA 3D,98,A9,80.8D.F1,02,4C,3D,98,C9,BA,FO,07,A9,06,A2,01,4C,FE 
1040 DATA 9C,20,77,98,20,BB.96,20,D5,98.20,EB,00,C9,3B,F0,13,AD,02.CO 
1050 DATA C9,EC,F0,06,20,9F,CB,4C,63,98,20,F0,CB,4C,63,98,20,E2,00,AD 



1060 DATA 02.C0, C9,EC,D0,06,20,2F,C8,4C,73,98,4E,F1,02,20,E8,00,60,AD 
1070 DATA 02,C0,C9, EC,F0,14,20,E2,00,20,86, DI,B0,06,20.98,CA,4C,A3,98 
1080 DATA 20.9D,E7,4C,A3,98,20,E2,00,20,16,D2,B0,06,20,E2,CA,4C,A3,98 
1090 DATA 20,53,E8,A5,33,8D,8E,9D,A5,34,8D,8F, 9D,DO,0B,A5,33,DO,07,A9 
1100 DATA 06,A2,01,4C,FE,9C,60,AD,02,C0,C9,EC,F0,D6,20,DE,C6,4C,CB,96 
1110 DATA 20,B3,C6,90,Û1,60,A9,08,A2,01,4C,FE,9C,A5,CE,B5,02,A5,CF,85 
1120 DATA 03,18,A5,02,69,04,85,02,A5,03,69,00,85,03.20,9F,9C,C9,9D,F0 
1130 DATA 07.A9.07,A2,00.4C,FE,9C,20,B3,9C,20,9F,9C,C9,28,F0,03,4C,F1 
1140 DATA 98,20, B3,9C,20.9F,9C, C*?, 22,D0,06,20,DD,9C, 4C,30,99, C9,2F, D0 
1150 DATA 06.20,EE, 9A, 4C, 30,99, C9,58, D0.06,20, CE, 9A, 4C,30,99, C9,54, DO 
1160 DATA 06,20,AD.9A,20,9F,9C,C9,2C,F0,CE,C9,29,F0,03,4C,55,99,20,E8 
1170 DATA 00,C9,00, F0,0F,C9,3A.F0,0B.C9,3B,F0,07,A9,03,A2,01,4C,FE,9C 
1180 DATA 60,20,73,99,20,FD,99,4C,30,99, C9,41, DO,03,4C, 70,99, C9,43, D0 
1190 DATA 03,4C,70,99,C9,4E,D0,81,85,05,60,A2,00,20,CD,99,20,90,99,20 
1200 DATA 5E,99,E0,00,F0,06,20,A3,99,4C,BA,99,A9,01,85,06,60,20,B3,9C 
1210 DATA 20,9F,9C, C9,30,30,0B, C9,3A, 10,07,95,09,E8,E0,03,DO,EB,60,A9 
1220 DATA 00,85,00, A5,09,F0,1F,38,E9,30,85,00,A5,0A,F0,16,38,E9,30,85 
1230 DATA 0B,A5,00,18,0A,0A,0A,18,65,00,18,65,00,18,65,0B,85,00,A5,00 
1240 DATA 60,A9,00,85,09,85,0A,60,A2,00,20,CD,99,20,8D,99,E0,00,F0,10 
1250 DATA 20,A3,99,C9,O0,FO,O9,AA,A5,O4,FQ,OB,EO,51,3O,OB,A9,02,A2,0C 
1260 DATA 4C,FE,9C,E0,29,10,F5,8A,60,20,D4,99,85,07,20,9F,9C,C9,2C,F0 
1270 DATA 25. C9,29, F0,21, C9,2E,F0,07, A9,07,A2,00,4C, FE,9C,A9,46.85,05 
1280 DATA 20,D4,99,85,08,C6,08,C9,0A,30,07,A9,02,A2,00,4C,FE,9C,AD,02 
1290 DATA C0, C9,EC, F0,06.20,08,9B,4C, 3E, 9A, 20,58,9A, C6,06,F0,03,4C,2E 
1300 DATA 9A,60,20,E8,00,C9,2C,FO,07,A9,06,A2,01,4C,FE,9C,20,E2,00,60 
1310 DATA 20,46,9A, 20,17, CF,2C, 28,00,30,09,20, D5,E0,20,70,9A, 4C, 6F,9A 
1320 DATA 20,92,9A, 60,A6,05,E0,41,D0,07,A9,01,A2,01,4C,FE,9C,E0,43,FO 
1330 DATA F5,EO,4E,DO,06,20,56,9B,4C,8E,9A,20,91,9B,20,20,9B,60,A6,05 
1340 DATA E0,4E,F0,DE,EO,46,FO,DA,E0,43,DO,O6,20,4E,9C,4C,A9,9A,2O,13 
1350 DATA 9C,20,20,9B,60,20,DA, 99,38,E5,30,90,18, AA,E8, CA,F0,13,AC,02 
1360 DATA C0,C0,EC,F0,06,20,0D,CC,4C,B7,9A,20,D4,CC,4C,B7,9A,60,20,D4 
1370 DATA 99,85,00, C6.00, AD,02, C0, C9,EC,F0.08, A9,20,20,12, CC,4C,E9,9A 
1380 DATA A9,20,20,D9,CC,C6,00,10,E8,60,20,D4,99,85,00,AD,02,C0,C9,EC 
1390 DATA F0,06,20,9F,CB,4C,03,9B,20,F0,CB,C6,00,10,EC,60,20,46.9A,20 
1400 DATA 8B,CE,2C,28,00,30,09,20,DI,E0,20,70,9A,4C,1F,9B,20,92,9A,60 
1410 DATA AD,02, C0, C9,EC,F0,06,20.31,9B.4C,30,9B,20,40,9B,60, A0,00,B9 
1420 DATA 92,9D,F0,07,20,12,CC,C8,4C, 33,9B, 60, AO,00,B9,92,9D,FO,07,20 
1430 DATA D9,CC,C8,4C,42,9B,60,C8,A9,60,99,92,9D,60,A2,00,BD, 00,01,C9 
1440 DATA 00,FO,08,C9,2E,FO,04,EB,4C,58,9B,A4,07,A9,00,99,92,9D,88,30 
1450 DATA 1A,CA,BD,00,01,99,92,9D,88,30,OC,CA,10,F4,A9,20,99,92,9D,88 
1460 DATA 10,FA,60,EO,00,FO,FB,20,4F,9B,4C,86,9B,A2,00,BD,00,01,C9,00 
1470 DATA FO,OD, C9,2E,FO,2B,E8,4C,93,98,A9,30,4C, DF, 9B,86,00,A6,08,20 
1480 DATA FB,9B,30,45,A9,30,99,92,9D,88,30,3D,CA,10,F7,A6,00,A9,2E,99 
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FORMATEE 


1490 DATA 92,9D,88,30,30,CA,4C,DO,9B,8A,65,08, AA,20,FB,9B,BD,00,01,C9 
1500 DATA 20,FO,08,C9,2D,30,C7,C9,3A,10,C3,99,92,9D.88,30,OC,CA,10,E8 
1510 DATA A9,20,99,92,90,88,10,FA,60,EO,00,FO,FB,20,4F,9B,4C,F0.9B,A4 
1520 DATA 07, A9,00,99,92,9D, 88,60, A2,00, AO, 00, B1, D3,85,00, E6, D3, DO, 02 
1530 DATA E6,D4,60,20,04,9C,A0,00,Bl,D3,8D,26,9C,C8,Bl,D3,8D,27,9C,A0 
1540 DATA 00,BD,25,9C,E4,00,10,14,99,92,90,C8,E8,C4,07,10,03,4C,25,9C 
1550 DATA A9,00,99,92,9D,4C,4D, 9C,A9,20,99,92,9D,C8,C4,07,30,F8,4C,38 
1560 DATA 9C,60,20,04,9C,AO,00,B1,D3,8D,83,9C.C8,B1,D3,8D, 84,9C.A5,07 
1570 DATA 38,E5,00,C9,02,30,30,18,4A.AA,A4,07,A9,00,99,92,9D,88,30,22 
1580 DATA A9,20,99,92,90,88,30,1A,CA,DO,F7,A6,00,CA,BD,39,05,99,92,9D 
1590 DATA 88,30,OB,CA,10,F4,A9,20,99,92,9D,88,10,FA,60,A2,00,20,16,9C 
1600 DATA 4C,96,9C,AO,00,B1,02,C9,20,DO,06,20,B3,9C,4C,A1,9C,60,AO,00 
1610 DATA Bl,02,60,18,E6,02,DO,02,E6,03,60,AO,04,A9,20,99,88,9D,88,10 
1620 DATA FA,60,AE,02,CO,EO,EC,FO,09,20,ED,D3,20,DI,EO,4C,DC,9C,20,99 
1630 DATA D4,20,D5,E0,60.20,B3,9C,2O,AE,9C,C9,22,F0,13,AE,02,CO,EO,EC 
1640 DATA FO,06,20,12,CC,4C,DD,9C,20,D9,CC,4C,DD,9C,20,B3,9C,60, 18,69 
1650 DATA 30,8D,7B,9D,20,BB,9C,EO,01,FO,17,AC,8E,9D,AD,8F.9D,20,C6,9C 
1660 DATA A2,00,BD,00,01,9D,88,9D,F0,1B,E8,4C,16,9D,AC,90,9D,AD,91,9D 
1670 DATA 20, C6,9C,A2,00, BD,00,01,9D,88,9D,FO,04,E8,4C,2D,9D. AD,02, CO 
1680 DATA C9,EC,FO,16,A5,04,FO,03,4E,Fl,02,20,9F,CB,AC,70,9D,AD,6F,9D 
1690 DATA 20, ED, CB. 4C,B5. C4,A5.04,FO,03,20,2F, C8,20,FO, CB, AC. 70.9D.AD 
1700 DATA 6F,9D,20,B0,CC,20,2F,C8,4C,A8,C4,71,9D,45,52,52,45,55,52,20 
1710 DATA 4E.6F.20,00,20,41,20,4C,41,20,4C,49,47,4E,45,20,00,00,00,00 
1720 DATA 00,00,00,00,00,00,00,00 


Chaque descripteur est séparé du 
suivant par une virgule. Le 
module autorise deux types de 
descripteurs : 

Les descripteurs se 
rapportant aux variables 
de l'ordre (L)PRINT 

Nn : Impression d'une variable 
entière ou flottante (appartenant 
à la liste des variables de l'ordre 
(L)PRINT) sur n caractères, sans 
partie décimale avec un cadrage 
droit (caractère de signe com¬ 
pris). 

Nn.m : Impression d'une variable 
entière ou flottante sur n carac¬ 
tères, avec partie décimale sur m 
caractères (le point décimal et le 
signe sont compris dans les n 
caractères). 

S'il y a dépassement de capacité 
(plus de n caractères à imprimer), 
le module imprime un © dans le 


caractère le plus à gauche de la 
zone d'impression, 
n doit être inférieur à 40 pour 
PRINT, à 80 pour LPRINT. 
m doit être inférieur ou égal à 10. 
An : Impression en cadrage gau¬ 
che d'une variable alphanuméri¬ 
que sur n caractères. 

Cn : Impression d'une variable 
alphanumérique centrée sur n 
caractères. 


Les descripteurs de 
présentation, sans relation 
avec les variables de 
l'ordre (L)PRINT associé 

"texte” : Imprime le texte entre 
guillemets. 

Xn : Imprime n caractères 
"blancs". 

/n : Génération de n sauts de 
lignes. 

Tn : Positionnement en colonnne. 


Les descripteurs de types N, A et 
C peuvent être précédés d'un 
facteur de répétition (maximum 
99) qui indique le nombre de 
variables de la liste auquel s'ap¬ 
plique un descripteur. 

Les descripteurs de type ", x, /, 
T ne doivent pas comporter de 
facteur de répétition. 

EXEMPLES D'UTILISATION 

100 ! PRINT 200, A%, V, VI, 
M$, K(25) 

200 REM ("VALEURS:",X2,N5, 
X3,"!",2N7.3,A20,N8) 
210 J = 100 
220 (PRINT J*3 
300 REM (X2,"LE PETIT CHAT”, 
XIO,"EST JAUNE") 

On peut exécuter (PRINT en 
mode direct si le format existe en 
mémoire. 

MISE EN OEUVRE DU 
MODULE DANS UN 
PROGRAMME BASIC 

Le PRINT formaté est analysé par 
un module appelé avec le ! ; le 
programme utilisant un PRINT 
formaté doit donc comporter l'or¬ 
dre : 

DOKE # 2F5, #9800 

Le module doit évidemment avoir 
été chargé en mémoire à partir de 
#9800. 

LES MESSAGES D'ERREUR 

En dehors des messages affichés 
par les routines de la ROM utili¬ 
sées, le module affiche des mes¬ 
sages du type suivant : 

ERREUR N° x 4 A LA LIGNE YYV 

(voir page 22>I 
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x peut prendre les valeurs suivan¬ 
tes : 

2 : la longueur d'un descripteur 
est incorrecte. 

3 : la liste des variables est plus 
longue que le format. 

6 : erreur de syntaxe dans un 
ordre (L)PRINT. 

7 : erreur de syntaxe dans l'ordre 
REM. 

7 : instruction de format (REM) 
inexistante. 


Exemple de programme 

Si vous souhaitez modifier le 
caractère de débordement ('. sur 
le listing ci-après avec une impri¬ 
mante GP 100A), il convient d'ef¬ 
fectuer la modification suivante : 

POKE #9B51, n° ASCII du 
caractère. 


LISTE DES 

VARIABLES UTILISEES 


0 : travail 

2-3 : pointeur d'analyse du REM 

4 : print (0), Iprint (1) 

5 : code du descripteur 

A, C, N ou F 

entier flottant 

6 : multiplicateur d’un descrip¬ 

teur 

7 : pour A, C, N ou F, longueur 

de la zone à imprimer 

8 : nombre de chiffres déci¬ 

maux 

9-A : accumulateur de calcul 


MODULE PRINCIPAL 

(Organigramme de principe) 



10 DOKE#2F5,#9300 
£0 FQRI=1T071 : B$=BÎ+"-" •NEXT 
30 ! PRINT900;6* : ILPRINT2800 
40 !PRINT910‘!PRINT900;B$ 

50 F0RJ=1T04 
60 REflDN5î,fl$,P 
70 !PRINT920,N*,flt,P 
80 NEXT 

90 IPRINT900/B* 

95 !LPRINT1000 

97 !LPRINT3000 * B$ 

98 !LPRINT3010; « !LPRINT3020•!LPRINT3000,8$ 
100 FGRK= 1T06 * INPIJT " NOMC 25C > " i NOM* 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 

THEORIC ? 

(voir page 3 ) 
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110 INPUT"PRENOM" / PRES 

120 INPIJT "NBRE DE LIVREC 3C )" ; NL’/. 

125 INPUT"PRIX"jPR 

136 ! LPRINT4000, NOM*, PRES ; NLX, PR, NLX*PR 

150 NEXT 

152 HX=1S 

155 !PRINT5000,HX 

160 !LPRINT3000,B* 

200 DATAS,CLOUS,2.58,7,CHEMISES,169.23,6,CISEAU,20.98,5,BOL,43.02 
900 REMCA37) 

910 REMC"! N!",X8,"ARTICLE",X9,"! PRIX I") 

920 REM<"!",N2,"!",C24,H7.2, " ! " ) 

1000 REM</5,T5,"C'EST TERMINE") 

2000 REM<T7,"DEBUT AFFICHAGE") 

3000 REMCA71) 

3010 REM<"!",X11,"NOM",X11,"!",X7,"PRENOM",X7,"!NBRE!",X2,"PRIX",X1,"!" ) 
3020 REMC X2,"COUT",X3,"!") 

4000 REMC"!",C25,"!",A20,"!",N4,"!",N7.2,"!",N9.2,"!") 

5000 REMC/6,"TABLEAU TERMINE A ",N6.2,"HEURES") 


NOM ! PRENOM INBRE! PRIX ! COUT I 


PIMARQUE 
FLORENTIN 
LE CHAT 
POPI 
BELLE 
RI TON 


! HERCULE 
! GIGI 
! MINOU 
! L'AFFREUX 
! CLOCHARD 
! LA FARCE 


! 9! 102.45! 922.05! 

! 11! 231.93! 2551.78! 

! 141 321.90! 4506.60! 

! 5! 900.291 4501.45! 

! 8!'002.52! 8020.16! 

! 15! 500.00! 7500.00! 


VISEZ JUSTE ! 


LM 


Le compilateur qui permet l'exécution 
à la vitesse du langage machine 
de vos meilleurs programmes Basic. 


Edit-Plus 

L'éditeur pleine 
page et le 
Basic français. 

Idéal pour 
l'apprentissage et 
l'enseignement 
du Basic 

75 F 


Le manuel de référence 
de iOric-Atmos. 

André Chénière 

Le livre d'un spécialiste pour les non initiés 
TOME 1 (reédition) 138 F 

TOME 2 Travaux pratiques 1 20 F 


95 F 


AS DES AS 


L'assembleur et le 
désassembleur 
indispensables 
pour programmer 
efficacement 
en langage machine 


ORISCRIBE 


150 F 


75 F 


Le traitement de texte adaptable à toute imprimante. 


Ote 

DESIGNATION DES PRODUITS 

PRIX 

UNITAIRE 

PRIX TOTAL 








+ 




+ 



SOUS TOTAL 

m 

[=□ 

Règlement contre-remboursement (France Métropolitaine seulement) ♦ X F 

+ 

Partopaton aux frais de port et emballage : 10 % du sots total avec un maximum de 40F 

+ 

Cohs de plus de 5 kg expédiés par transporteur en port dû 

TOTAL 



Les onx sonl donnés TTC 
Ils sort ind«atils 

et peuvent éire modités sans préavis 


Nom : 
Prénom : 
Adresse : 

C.P. et Ville: 
Téléphone: 
date : 
signature : 


BON DE 
COMMANDE 
A : 

lhi=fl 

ISOSOFT 

BP 22 
Mûrs-Krigné 
49130 

Les Ponts-de-Cé 
TEL 41.57.77.1t 
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FONCTION STRING 


L e Basic de l'ORIC est assez riche. Pourtant, certaines 
fonctions font défaut. On découvre ces lacunes après 
quelques mois d'utilisation. Heureusement, les concep¬ 
teurs ont prévu la possibilité d'enrichir le Basic au moyen du 
"I". C'est grâce à lui que nous introduirons la fonction STRING. 


Il s'agit d'une fonction permet¬ 
tant de transformer un nombre 
pour l'obtenir avec X chiffres 
après la virgule. 

Le nombre de départ devra être 
stocké dans une variable réelle. 
Le résultat sera transféré dans 
une variable chaîne. 

La syntaxe est : ISTRING X$,y,z. 
x$ : c'est le nom de la chaîne où 
sera mis le résultat, 
y : c'est le nom de la chaîne qui 
sera transformée. 


z : c'est le nombre de chiffres 
désirés après la virgule. 

EXEMPLES 

Vous désirez avoir PI avec deux 
chiffres après la virgule. 

Il faudra taper : 

I = PLISTRING A$,I,2:?A$ 

A$ contiendra "3.14”. 

La variable chaîne peut être 
entrée sous forme de tableau : 
ISTRING AD$( 1 00),1,2 sera 


Fabrice TALLEUX 


accepté. Par contre, le paramètre 
numéro 2 doit être une variable : 
ISTRING AD$(100),3.43,1 ne 
sera pas accepté. 

Le troisième paramètre peut être 
entré sous forme de variable ou 
de nombre, mais il ne doit pas 
dépasser 9. 

Pour les possesseurs de drive, la 
page 4 n'a pas été utilisée et 
SHRIEK, c'est-à-dire “\" est 
détourné sur le DOS si la syntaxe 
de STRING n'a pas été vérifiée. 


0 ' % X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 


1 x 

2 'X STRING . x 

3 ■' X . X 

4 ' x X 

5 'X Par F. TALLEUX <C> 1986 X 

6 'X X 


7 'XXXXtXtXXXXtXXXXXXXXXXXXXXtXXXXXXX 

8 HlflEM #35FF 

9 REM CALL#9723 POUR L'INITIALISATION 

10 : AD=#96O0 : LI=100 

20 =F0R 1=0 TO 19:READ R$ 

30 =IF A$="FIN" THEN 300 

40 : A=VAL< " # " +A$ = POKE AD+1, A : S0M=S0M+A : N EXT 
50 :AD=AD+20 : READ CHEK 

60 : IF CHEKOSOM THEN PING : PRINT"ERREUR LIGNE =";LI 
70 =SOM=0:LI=LI+10:GQTO 20 
80 REM 
90 REM 
100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 


A0 j 
A5.. 
88 , 
20 , 
E0, 
A9, 
EA, 
22 , 
65, 
88 , 
EA, 
D0 , 
96, 


05,D9, 
EA,85, 
10,F8, 
88,DI, 
0A,90, 
85,06, 
A6,00, 
95,34, 
04,85, 
10,F8, 
68,85, 
F8,4C, 
84,03, 


64,97, 
01,20, 
A5,02, 
85,02, 
03,4C, 
A2,4A, 
BD,DF, 
E8,86, 
02,A8, 
A4,02, 
E9,A5, 
ES,00, 
18,A5, 


F0,03 
88, DI 
85,00 
84,03 
36, D3 
B5, 34 
BF, 95 
00, EA 
A5,00 
C8, A9 
05,85 
EA, EA 
03,69 


, 4C , 
,38, 
, 20 , 
, 20 , 
, 86 , 
,9D, 
,34, 
,A5, 
, 69, 

J C-il t 

, A3, 
, 20 , 
, 09 , 


56.97, 
A5,E9, 
ES,00, 
ES,00, 
04,A5, 

70.97, 
CA,D@, 
02,A4, 
34,85, 
91,00, 
A5,06, 
D5,E0, 


20 , 

E5, 

C9, 

C9, 

E9, 

CA, 

F8, 

03, 

00 , 

C8, 


O J, 

A0, 
AS,88,A9, 


E2,00, 
00,A8, 
2C,F0, 
2C,F0, 
48,A5, 
D0,F8, 
A6,00, 
20,7B, 
A9,00, 
A3,00, 
A3,A2, 
00,B9, 
30,93, 


34, 
@3, 
03, 
EA, 
A3, 
E8, 
DE, 
85, 
91, 
4A, 
00 , 
00 , 


10 , 
02 , 
4C, 
4C, 
48, 
35, 
A3, 
20 , 
01 , 
00 , 
BD, 
01 , 
01 , 


F2,A5, 
B1,00, 
70,D0, 
70,D0, 
A5,A8, 
85,E3, 
D4,95, 
E3,96, 
B9,00, 
20,IC, 
70,97, 
F0,04, 
C4,03, 


E9,35, 
93,E0, 
20,E2, 
20,C5, 
85,05, 
A3,00, 
34,ES, 
A5,03, 
01,91, 
CB,68, 
95,34, 
C8,4C, 
D0,F6, 


00,#0944 
BF,#0A50 
00,#083A 
D8,#08C0 
A5,#0985 
85,#0AB3 
A3,#0CAB 
18,#0863 
00,#05D9 
85,#0850 
CA,#0AB3 
E8,#0AEF 
18,#0797 
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230 

DR TR 

05,03# 

6'3,03, 

R8,09,Q0, 

93 

, 00 

01 , 

240 

DRT R 

0D..C8, 

4C,10, 

97,ER,R4, 

03 

,09. 

2E, 

250 

DR IR 

8D .■ 62 , 

97,RD, 

F6,02,8D, 

63 

,97. 

03, 

260 

DR IR 

F5,02, 

09,97, 

8D,F6,02, 

60 

,05. 

E3, 

270 

DR 1 R 

00 , '36 .* 

05,00, 

85,E9,R5, 

01 

,85. 

EH, 

280 

DR 1 R 

54,53, 

24,2C, 

49,2C,31, 

00 

, 00 

00, 

285 

DRT R 

"FIN" 






230 

REM 







300 

REM 

MQDIF ORIC 1 





3.10 

REM 







320 

» 1F 

DEEKC#FFFC )=#F88F THfcH 

END 


330 

• DQK 

£ #3613 

,#DQFC 

= DQKE#963 

7, 

#CFE4 

340 

= DQK 

E #’363D 

,#D0FC 

: D0KE#964B, 

#CFE4 

350 

| DQK 

E #864t 

,#D8QR 

'D0KE#965 

5, 

#D20R 

360 

= DQK. 

£ #9698 

,#DE73 

: DQKE#36E4, 

#E0L 

>1 

370 

= DQK 

E #96C4 

,#C0D2 

■ 





R0, 

00. 

89, 

00 

01 , 

F 0. 

08 

C9 

2E. 

F0, 

#073E 

39, 

00 

01 , 

60 

84, 

03 

60. 

RD 

F5. 

02, 

#Q7B5 

FF, 

85. 

06, 

H3. 

35, 

85. 

R7. 

R3 

48 

8D 

#0B6D 

85, 

00. 

H5 ■ 

ER. 

85 , 

01 . 

20 

ES 

00. 

4C > 

#0998 

20, 

E8. 

00, 

4C. 

00, 

50. 

47. 

4E 

49. 

52 .• 

#0792 

00, 

00. 

00 

00 

00, 

00 

00 

00 

00. 

00 , 

#019D 


LISTING DESHSSEMBLE ET COMMENTE 


>L 9600 






9o00 

H0 

05 


LOY 

#05 

\ 

9602 

09 

64 

97 

CMF' 

9764, 

Y 

9605 

F0 

03 


BEGI 

960R 


9607 

4C 

56 

97 

JMP 

9756 


960R 

20 

E2 

00 

JSR 

00E2 

r 

9600 

88 



OEY 



960b. 

10 

F.-' 


BPL 

9602 


9610 

R5 

E9 


LDR 

E9 

\ 

9612 

85 

00 


STR 

00 


9614 

H5 

ËR 


LOR 

EH 

} 

9616 

85 

01 


STR 

01 

1 

9618 

20 

88 

01 

JSR 

0188 

) 

9618 

38 



SEC 


'l 

96 IC 

R5 

E9 


LOH 

E9 


961E 

E5 

00 


SBC 

00 

/ 

9620 

R8 



TRY 



9621 

84 

02 


STY 

02 


9623 

81 

00 


LOR 

< 00 > 

Y 

9625 

99 

Ë0 

BF 

STR 

BFE0 

Y 

9628 

88 



OEY 



9629 

10 

F8 


BPL 

9623 

4 

9628 

H5 

02 


LOR 

02 

) 

9620 

85 

00 


STR 

00 

i 

962F 

20 

E8 

00 

JSR 

00E8 

} 

9632 

C9 

2C 


CMP 

#2C 

) 

9634 

F0 

03 


6E0 

9639 


9636 

4L 

70 

00 

JMP 

0078 

f 

9639 

20 

E2 

80 

JSR 

00E2 

} 

963C 

20 

88 

DÏ 

JSR 

0188 

v 

963F 

85 

02 


STR 

02 


9641 

84 

03 


STY 

03 

J 

9643 

20 

E8 

00 

JSR 

00E8 

9646 

C9 

2L 


CMP 

#2C 

' 

9648 

F0 

03 


BEGI 

9640 


964R 

4C 

70 

00 

JMP 

0070 

9640 

20 

C5 

08 

JSR 

D8C5 

> 

9650 

E0 

0R 


CPX 

#0H 

\ 

9652 

90 

03 


BCC 

9657 


9654 

4C 

36 

03 

JMP 

0336 

9657 

86 

04 


STX 

04 

> 

9659 

R5 

E9 


LOR 

E9 


9658 

48 



PHR 



965C 

R5 

ER 


LDR 

ER 


965E 

48 



PHR 


4 

965F 

R5 

R8 


LDR 

R8 5 

S. 

9661 

85 

05 


STR 

05 

0 

9663 

H5 

R9 


LDR 

R9 


9665 

85 

06 


STR 

06 J 

D 

9667 

R2 

4R 


LDX 

'J 


9669 

B5 

34 


LDR 

34,X 


966B 

90 

70 

97 

STR 

9770 

,x 

966E 

CR 



DEX 



966F 

00 

F8 


BNE 

9669 

/ 

9671 

R9 

35 


LDR 

'5 

T 

9673 

85 

E9 


STR 

E9 


9675 

H9 

00 


LDR 

#00 

J 


Si oui. passe, sinon se branche en #9756 


Sauvegarde de TXTPTR en 00.01 
OOKE 0, DEEK(#E9I 


de #BFEO. 

POKE 0. PEEK (21 

Lit caractère suivant 
Est-ce une virgule ? 


on stocke l'adresse en 02,03. 


Lit le 3* paramètre. 
Est-il inférieur à 10 ? 


Empile TXTPTR 


en #9770. 


Met #35 dans TXTPTR 


96 77 
96/9 
967B 
967E 

9680 

9681 

9683 
9685 
3686 
9688 

968R 

968B 

9680 

968F 

9690 

9692 

9693 
9695 
9697 
969H 
9690 
969F 
96R0 
96R2 
96R4 
96H5 
96R7 
96R9 
96RB 
96R0 
96RF 
96B2 

9684 

9685 
9687 
96B9 
96BH 
96BC 
968E 
96BF 
96C1 
96C3 
96C6 
96C7 
96C9 
96CR 
96CC 
96CE 
9600 
9602 
96D4 
9606 
9609 
96DB 

960C 

96DE 

96E1 

96E2 

96E3 


85 ER 
R6 00 
80 OF 
95 34 
CR 

00 F8 
R6 00 
E8 

H9 04 
95 34 

E8 

R9 22 
95 34 

E8 

86 00 
ER 

R5 02 
R4 03 
20 78 
20 E3 
R5 03 
18 

65 04 
85 02 
R8 

R5 00 
69 34 
85 00 
R9 00 
85 01 
B9 00 
91 00 

88 

10 F8 
R4 02 

C8 

R9 22 
91 00 
C8 

R9 00 


00 

IC 


91 
20 
68 
85 ER 
68 

85 E9 
R5 05 
85 RB 
R5 06 
85 H9 
R2 4R 
BO 70 
95 34 
CR 


STR 
LOX 
BF LDH 
STR 
OEX 
BNE 
LOX 
INX 
LOR 
STR 

INX 

LOR 

STR 

INX 
STX 
NOP 
LDR 
LDY 
DE JSR 
96 JSR 
LDR 
CLC 
RDC 
STR 
THY 
LOR 
RDC 
STR 
LOR 
STR 
01 LOR 
STR 

DEY 
BPL 
LOY 
INY 
LOR 
STR 
INY 
LOR 
STR 
CB JSR 
PLH 
STR 
PLR 
STR 
LOR 
STR 
LOR 
STR 
LDX 
97 LDR 
STR 
DEX 


EH -x 
00 ) 

eFDF.X/ 

34/X iMet dans le buffer le nom de la chaîne de 

/ caractères (1*' paramètre). 

967B J 
00 




#04 

34, X 


#22 
34,X 

00 


) 


Puis les codes ASCII de : 


Sauve le pointeur buffer en 00. 


02 1 Transfère dans ACC1 la valeur de la varia- 

03 V 

DE78 r ^ e ^ e (2* paramètre). 

96E3 \ Saut en #96E3. 

03 -v 

)Met dans y et dans 02 le nombre de cases 
04 Ypour arriver au nombre de chiffres après la 
J virgule demandé. 

00 1 Met dans 0 l'adresse du buffer où on s'était 

'4 y 

| arrêté la dernière fois pour y écrire. 

*0° \ POKE 1,0 

01 I 

< 00 ^Y ) Trans,ère dans le buffer le nombre avec 
\ autant de chiffres après la virgule que ce qui 
avait été indiqué. 

96RF > 

02 ' 

#22 Inscrit à la suite un guillemet et un 0 indiquant 

<.00;,Y \| a (jn . 


#00 

(00), Y 

CB1C 

ER 


) Saut pour exécution de la routine LET. 
Redonne à TXTPTR sa valeur initiale 


Puis celle du numéro de ligne. 
POKE # A8.DEEKI5) 


E9 

05 
H8 
06 
89 

9770,X/ 

34,X (Remet dans le buffer sa valeur lors de l'en¬ 
trée dans le programme. 


00 F8 BNE 9606 
4C E8 00 JMP 00E8 
ER NOP 

EH NOP 

20 D5 E0 JSR E0D5 > Transforme ACC1 en chaîne de caractères. 
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96E6 
96E8 
96EB 
96ED 
96EE 
96F1 
96F 3 
96F4 
96F 6 
96F 8 
96F 9 
96FR 
96FC 
96F F 
9701 

9703 

9704 
9786 
3708 

9709 
9708 
970E 

9710 
9713 
9715 
9717 

9719 
971R 
9710 
971E 

9720 
9722 

9725 

9726 


H0 00 
B9 00 01 
F0 04 
C8 

4C E8 96 

84 03 
18 

85 03 
69 09 
R8 

88 

R9 30 
99 00 01 
C4 03 
00 F6 
18 

R5 03 

69 09 
R8 

R9 00 
99 00 01 
H0 00 
89 00 01 
F0 08 
C9 2E 
F0 00 
C8 

4C 10 97 
EH 

H4 03 
R9 2E 
99 00 01 
60 

84 03 


^Sauvegarde le pointeur du-© en 3. 
j. Y ajoute 9. 


(Met des "0” à partir du 0 terminateur. 


LDY #00 
LDR 0100 
BEQ 96F1 
INY 

JMP 96E8 
STY 03 
CLC 

LDH 03 
HOC #09 
TRY 
OEY 

LDR '0 
STR 0100(Y 
CPY 03 
BNE 96F9 
CLC 
LDR 03 

RDL #09 (Puis remet un 0 terminateur après ces "0". 
TRY 

LDH #00 
STR 0100/Y 

LDY #00 ' 'N Lit la chaîne à partir de » 100. 

LDR 0100/Y/S'agit-il d’un octet nul ? Si oui, on va en 
BEQ 971D |*9710. 

)S'agit-il d'une virgule ? Si oui, on va en 
#9726. 

/Si non, on continue la boucle. 

—^Le nombre ne comporte pas de virgule. 
(Met une virgule à la place de l’ancien 0 ter 

, v /nmal et retourne en #969D. 

Le nombre comporte une virgule. 

03 \ Met dans 3 le pointeur de la virgule à partir 


CMP 

BEQ 

INY 

JMP 

NOP 

LDY 

LDR 

STR 

PTS 

STY 


#2E 

9726 

9710 

03 

#2E 

0100. 


9728 

60 



RTS 


9729 

RD 

F5 

02 

LDR 

02F5 ‘ 

972C 

8 D 

62 

97 

STR 

9762 

972F 

RD 

F6 

02 

LDR 

02F 6 

9732 

8 D 

63 

97 

STR 

9763 

9735 

R9 

FF 


LDH 

#FF ’ 

9737 

85 

R6 


STR 

R6 

9739 

R9 

95 


LDH 

#95 

973B 

85 

R7 


STR 

R7 

973D 

R9 

48 


LDR 

'H 

973F 

80 

F5 

02 

STR 

02F 5 

9742 

R9 

97 


LDR 

#97 

9744 

80 

F6 

02 

STR 

02F6 

9747 

60 



RTS 

) 

9748 

H5 

E9 


LDH 

E9 

974R 

85 

00 


STR 

00 [ 

974C 

R5 

ER 


LDR 

ER [ 

974E 

85 

01 


STR 

01 * 

9750 

20 

E8 

00 

JSR 

00E8T 

9753 

4C 

00 

96 

JMP 

9600 1 

9756 

R5 

00 


LDR 

00 < 

9758 

85 

E9 


STR 

E9 ( 

975R 

R5 

01 


LDR 

01 f 

975C 

85 

ER 


STR 

EH > 

975E 

20 

E8 

00 

JSR 

00E8 1 

9761 

4C 

00 

50 

JMP 

5000 j 

9764 

47 



BYT 

'G 

9765 

4E 

49 

52 

LSR 

5249 ' 

9768 

54 



BYT 

'T | 

9769 

53 



BYT 

'S J 

976R 

24 

2C 


BIT 

2C 

976C 

49 

2C 


E0R 

#2C 


7 de »100 

met en #9762, # 9763 l’adresse 
du saut du 

POKE # 9762,DEEK( # 2F5). 

Initialise plafond mémoire. 
VHIMEM # 95FF 

^ Met *9748 pour le saut du ”1". 
Retour 


mulateur et se branche en # 9600. 


syntaxe n'a pas été vérifiée. 


du ’T 


Codes ASCII de STRING à l’envers 


OPTIONS : 
COMMANDES 
POUR ORIC-1 ET ATMOS 


Thierry LEGAL 


L e programme en langage machine ci-dessous permet de 
munir l'ORIC de quelques commandes graphiques sup¬ 
plémentaires. Elles sont toutes de la forme : I + Nom + 
Données. Toutefois, le programme n'interfère pas avec les 
autres utilisations du "I", comme le DOS par exemple. De 
plus, il est prévu pour être placé n'importe où en mémoire et 
pourra donc être utilisé simultanément avec d'autres options. 
Les commandes rajoutées sont au nombre de cinq : 

1) IDRAW x,y,c 


Il s'agit simplement d'un DRAW 
avec un adressage absolu au lieu 
d'un relatif. Dans de nombreux 
cas, cette commande s'avère 
plus pratique qu'un DRAW clas¬ 
sique et vous aurez vite fait de 


vous y habituer. Cela évite le fas¬ 
tidieux : 

"DRAW X-XC.Y-YC,c: 

XC = X:YC = Y" 

où XC et YC sont les coordon¬ 
nées du curseur. 


2) !ELL a,b,c 

Comme vous l'avez sans doute 
deviné, cet ordre permet de tra¬ 
cer une ELLipse de demi-axe sur 
X:a et sur X:b. Elle est tracée 
avec l'ordre d'encre :c (0, 1,2 ou 

3) suivant les codes habituels de 
tracé. Elle est centrée sur la posi¬ 
tion courante du curseur qui sera 
placé par un CURSET par exem¬ 
ple. Il est possible de la faire «sor¬ 
tir de l'écran» vers le haut ou vers 
le bas, mais, pour des raisons 
techniques, cela n'est pas possi¬ 
ble latéralement. 
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Une particularité de la commande 
ELL est qu'elle tient compte de la 
déformation due à l'écran. Ainsi, 
si on lance un "ELL 50,50,1 ", on 
obtiendra réellement un cercle de 
rayon 50 à l'écran (chose que 
l'ordre CIRCLE ne permet pas). 
Toutefois, le coefficient correc¬ 
teur à introduire dépend légère¬ 
ment des écrans. Aussi est-il pos¬ 
sible de le modifier en changeant 
très légèrement la valeur de l’oc¬ 
tet en (AO + # 15B) qui est d'ori¬ 
gine à # 4E. Cette correction fait 
qu'en réalité on obtient un écran 
de 300x200 environ. 

Enfin, l'ellipse est ici construite en 
30 points. Cela donne un rapport 
qualité/rapidité très correct. Il est 
possible d'améliorer la qualité (au 
détriment de la vitesse) en la tra¬ 
çant en 60 ou même 120 points. 
Il suffit de procéder ainsi : 

- 30:POKE AO + #F5,30:POKE 
AO + # 140,30:POKE A0 + 

# 1 5F, # 7E 

- 60:POKE AO + #F5,60:POKE 
A0+ # 140,60:POKE A0 + 

#15F # 7E 

- 120:POKE A0 + #F5,120: 
POKE AO +# 140,120:POKE 
AO + # 1 5F, # 7E 

IELP a,b,c 

Le nom de cette commande res¬ 
semble étrangement à celui de la 
précédente, et pour cause, il 
s'agit là du tracé d'une ellipse, 
mais à la différence près que 
celle-ci est «pleine». Tout l'inté¬ 
rieur de l'ellipse ainsi définie est 
donc rempli suivant le code c. 
Effacement pour c = 0, entière¬ 
ment coloriée pour c = 1 et inver¬ 
sion Encre-Papier pour 2. Comme 
pour "ELL", on tient ici compte 
du coefficient correcteur sur l'axe 
des X. 

REM : "ELL" est construite sui¬ 


vant le modèle : X = a*coef*Cos 
(Alpha):Y = b*Sin(Alpha) pour 
Alpha variant de 0 à 27 t. Pour 
"ELP”, par contre : X = a*coef 
*SQR(1 - (Y/b)) pour Y variant de 
+ b à — b. Cela explique qu'il y a 
parfois de légères différences 
entre les contours de ELL a,b,c et 
ELP a,b,c.. Si cela se produit dans 
un cas gênant, il suffit d'augmen¬ 
ter la finesse de ELL (comme indi¬ 
qué en 2) pour faire disparaître ce 
problème. 

4) !BOX XI ,Y1 ,X2,Y2,c,i 

Comme son nom l'indique, on 
trace ainsi un rectangle (une 
boîte) dont les coordonées des 
coins sont XI,Y1 ; X2,Y2 ; 
X2,Y2 et Y1 ,Y2. Le contour est 
tracé avec un code c et l'intérieur 
avec un code 1. Cela permet de 
créer facilement des fenêtres 
coloriées, vides ou en inversion. 

5) ! PAINT x.y.1 

Cette commande permet bien sûr 
de remplir une surface fermée. 
Son utilisation la plus courante 
est "IPAINT x,y,1 " qui remplit de 
la couleur de kencre la surface à 
l'intérieur de laquelle se trouve le 
point x,y. Toutefois, il ne s'agit 
que d'une routine simple passe 
verticale. Cela veut dire que si la 
surface «ondule» horizontale¬ 
ment, il n'y aura pas de pro¬ 
blème, alors que si elle «ondule» 
trop verticalement, elle ne sera 
pas entièrement remplie. S'il a le 
choix, le programme prend «la 
priorité à gauche». Il suffit alors 
de reprendre PAINT au niveau de 
la zone oubliée, mais il est rare de 
devoir s'y reprendre plus de deux 
fois. Cette commande vous ren¬ 
dra quand même, je crois, de 
grands services. 


Un peu de pratique et le pro¬ 
gramme de démonstration vous 
feront vite voir les limites et sur¬ 
tout les possibilités importantes 
de ces quelques options. 

a SEH ============================== 

1 REM = 

2 REM = Commandes Graohioues oour = 

3 REM = ATMOS et ORIC-1 

4 REM = = 

5 REM = BOX , ELl , ELP et PAINT = 

6 REM = 

7 REM = 

8 REM = LEGAL Thierry Août 85 = 
P REM = 

12 REM Entrée des Data de “Graphie* 

■4 REM- 

15 : 

16 INP*JT'AD=* :AD :D0KE 0.AD :HIM£M AD 
18 A0=DEEh(0) : CLS : FOR 1=0 TO 99 
20 PRINT 99-1 ; : AD=A0+8*Ï : S=0 

22 FOR J=0 TO 7:READ A$:A=VAL('#'+A*! 
24 POKE AD+J.A :S=S+A :NEXT : READ SC 
26 IF S=SC THEN NEXT :A!=#31F:G0T0 30 
28 PRINT’Erreur ligne'103+1 : ZAP :END 
30 IF PEEK(#FFFE>=40 THEN GÛSUB 300 
32 PRINT 'Contrôles Data Ok.* : PING 
34 IF A0O#9000 THEN GOSUB 40P 
36 PING :CALL A0 :ClS îPRINT 
38 PRINT “Routine Graphie împiantee* 
40 PRINT’Prepare: le Magnéto* :GET Aî 
42 CSAVE 'Graphie*.A A0.E A0+A1,AÜTO 
44 2AP :RUN 500 'Petite Démonstration 
46 : 

100 REM- 

10! REM Data de la routine 'Graphie' 

102 REM- 

103 : 

103 DATA AC,F6,02,AD,r5.02.8C.50.#424 

104 DATA 90,8D,4F.90.A0.90.A9.l7,#3EC 

105 DATA 8C,F6.02.8D.F5.02,60.C9,#431 

106 DATA AC,F0.42,A2.0C.A0,02,B1.#3DF 

107 DATA ER,DD,50,R0,D0,!E,CA.8S,*4E6 

108 DATA 10,F5.A0,03.20,E2.00,89.#332 
10R 'DATA D0,FA.E0.06,-0,o4,E0,03,*4E7 

110 DATA F0.60,E0,09,D0,03,4C,85,#3DI) 

111 DATA 92,4C,70,91,CA,88,10,FC,#43D 

112 DATA BA,D0.D2,20,E8,00,4C,I4,#394 

113 DATA FB,42,4F.58,45,4C,50,45,#30A 

114 DATA 4C,4C.50.41,D7.20.09.93,*2BC 

115 DATA 8D,E6,02,85.FA,20,E2,00,43F6 

116 DATA 20,53,E8.98,A4,FA,99.El,#fZB 

117 DATA 02,C8,CB.84,FA,C0.06.F0,“VC6 

118 DATA 06,20,65,D0.4C,68,90.A2.-341 
118 ’ 

119 DATA 02,A0,01,38,BD,El,02, r /,#374 

120 DATA 19,02.9D,El,02,B0,03 DE.#32C 

121 DATA E2,02,CA,CA,88,10,Et.4C,#448 
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122 DATA 10,Fl,8E, EC,90,20,03,CF,#3FD 

123 DATA A0,91,A9,5A,20,ED,DC,A0.#4BD 

124 DATA 93,A2,1A, 20,AD,DE,20,14, #32E 

125 DATA 93,84,FB.20,65,D0,20,03.#38A 

126 DATA CF,A0.93,A2,1F,20,AD,DE,#46E 

127 DATA 20,14,93,84,FC,20,65,D0,#39C 

128 DATA 20,53,E8.8C,E5,02,AD.19,*394 

129 DATA 02,85,FD,AD,1A,02,B5,FE,#3D0 

130 DATA 38,A5,FB,E5,FD,B0,09,18,#48B 

131 DATA A5,FB,65,FD,B0,04,C9,F0,#56F 

132 DATA 90,01,60.A2,00,E0,06,F0, #369 

133 DATA 03,4C,07,92,A9,1E,S5,FC,#330 

134 DATA 20,09,93, A4,FC,20,99,D4,#3E9 

134 ’ 

135 DATA A0,91,A9,5F,20,ED,DC,20,#442 

136 DATA 8B,E3.A0,93,A9,IA,20,ED,#471 

137 DATA DC,20,14,93,18,98,65,FD,#3B5 

138 DATA 8D,E1,02,A9,00,A4,FC.20,#3D9 

139 DATA ?9,D4,A0,91,A9,5F,20,ED.#4B3 

140 DATA DC,20,92,E3,A0,93,A9.1F,#46C 

141 DATA 20,ED,DC,20,14,93,18,98,4360 

142 DATA 65,FE,8D,E3,02.A5,FC,C9.#53F 

143 DATA 1E,D0,06,20,C'8,F0,4C,4C,#364 

144 DATA 91,20,7F,90,C6,FC,10,A8.#43A 

145 DATA 20,09,93,A6,FD,A4,FE,4C,#44D 

146 DATA 6D,92,80,4E.00,00,00,7E.#24B 

147 DATA 56,77,4F,98,8E.El,02,8C,435! 

148 DATA E3,02,20.7F.90,4C,09,93.#2FC 

149 DATA A2,00,86,79,^0,03,20,65.#319 

150 DATA D0,20,53,E8,E6,79,A6.79,#4A9 

150 ’ 

151 DATA 94,79,E0,06,D0,F0,A5,7A,#4D2' 

152 DATA C5,7C.90,06,A4,7C,85.7C,#3F8 

153 DATA 84,7A,A5,7B,C5,7D,90,06,#3F6 

154 DATA A4,7D,85,7D,84,7B,20,09,#34B 

155 DATA 93,8D,E6,02, A5,7E,8D,E5,#49D 

156 DATA 02,A5,7A,8D,El,02,A5,7B,#3B1 

157 DATA 8D,E3,02,20,C8,F0,A6,7C,#46C 

158 DATA A4,7B,20,64,91,A6,7C,A4,#3F4 

159 DATA 7D,20,64,91.A6,7A,A4,7D,#3D3 

160 DATA 20,64,91,A6,7A,A4,7B,C8,#41C 

161 DATA 20,64,91.A5,7F,C9,03,F0,#3F5 

162 DATA 2D,8D,E5,02,A4,7C,F0,26,#3D7 

163 DATA C6,?C,A5,7A,C9,EF,B0,1E,#4E7 

164 DATA E6,7A,E6.7B,A5,7B,C5,7D,#523 

165 DATA B0,14,BD,E3,02,A5,7A,8D,#3E2 

166 DATA El,02,20,C8,F0,A6,7C,A4,#48l 
166 ’ 

167 DATA 7B,20,64,91,F0,E4,60,A9,#46D 

168 DATA 00,A4,FC,20,99,D4,20,E5,#432 

169 DATA DE,A0,93,A9,1F,20,CE,DD,#4A4 

170 DATA 20,E5,DE,20,F5,DC,A0.DC,#550 

171 DATA A9,81,20,0B,DB,20,2E,E2,#360 

172 DATA A0,93,A9,1A,20.ED,DC,20,#3FF 

173 DATA 14,93,84,FB,A0,4C,18,A5,#3CF 

174 DATA FE,65,FC,8D,E3,02,8C,66.#4C3 

175 DATA 92,38,A5,FD,E5,FB,8D,E1,#5BA 

176 DATA 02,20,C8,F0,1B,A5,FD,65,#3F9 

177 DATA FB,AA,AC,E3,02,20,64,91,#44B 


178 DATA A5,FC.D0,03.4C.50,9!,A0,#44: 

179 DATA 2C,38,A5.FE,E5,FC,4C,3B,«46F 

180 DATA 92,C6,FC.10,9A,8E,E1.02.#4t c 

181 DATA 8C,E3,02,20,C8,F1,A9.00,#3F3 

182 DATA 8D,E2,02,A6,72,A4,73.AD,#44D 
182 ’ 

183 DATA E1,02,C9,FF,60,A0,54,20,#41F 

184 DATA F0,EA.AD,El,02,85,70,AD.#50C 

185 DATA E3,02,85.71,AD.E5,02, c 0,#45F 

186 DATA 07,A9,0!,8D,E5,02,A9,FF.#3CD 

187 DATA 8D,83,92.A9,C6,8D,DD,92,#50D 

188 DATA A6,70,86,72,86,76,A4,71.#41 c 

189 DATA 84,73,E6,72,46,72,E0,EF,#536 

190 DATA B0,85.20.6D,92,D0, C 3,86.#4lD 
19! DATA 74,Aû.76.F0.0A,36,72,C6,#448 

192 DATA 72,A6,72,E0,FF,F0,05.20,#47E 

193 DATA 6D,92,D0,F3,86,75,A6,74,#*D7 

194 DATA M, 73,20,64,91, C6,73, A4, #409 

195 DATA 73,C0,FF,F0,17,C0,C8.B0,#571 

196 DATA 13,E6,75,A6,75,86,72.86,#40? 

197 DATA 76,E4,74. B0.07.20,6D,92,#3A4 

198 DATA D0,B8.F0,ED,A9,E6,CD.DD.#69E 

198 ’ 

199 DATA 92,D0,01,60,8D,DD,92,D0,#48F 

200 DATA 9F,A9.00,A0,05,99,DF,02,#367 

201 DATA 88,D0,FA,60.20,04,DB,4C,#3FD 

202 DATA 2C,09.00,00,00,00,00.00.#105 

203 ’ 

300 REM- 

302 REM Modifications Oric-1 

304 REM- 

306 : 

308 REPEAT :READ N.B : FOR 1=1 TÔ N 
310 READ A* : DOKE A0+VALC# , +A$),B 
312 NEXT : UNTIL B=#D871 :A1=#331 
314 : 

316 POKE A0+421F,220 :POKE A0+#221,75 
318 : 

320 REM Correction du Pbm Draw 0.0,1 
322 FOR I=#9324 TO #9330 :READ A 
324 POKE I.A :NEXT :DOKE #924A,#9324 
326 POKE #9249,76 :RETURN 
328 : 

350 DATA 3,#E79D,69,C9.17A,4,#CFD9,7A 
352 DATA B4,C6,177,1,#F079,98.2,#CE77 
354 DATA 9E,B7,6,#DCB7,A5,105.10F,127 
356 DATA 131.22D,2,#DEA5,AC,BE,3 
358 DATA #D3ED,FE,120.20C,1,#E387.108 
360 DATA 1,#E38E,12A,4,#F02D,144,1B4 
362 DATA 1FB,24A,2,#DEDD,20F,219 
364 DATA 1,#DDDA,216,1,#DCBF,21C 
366 DATA 1,#DA80,223,1,#E22A,226 
368 DATA 1,#EBF1,274,1.#E87D,288 
370 DATA 1,#DA79,315,1.#0871,318 
372 : 

374 DATA #20,#2D.#F0,#A5,#FB,#F0,#03 
376 DATA #4C,#4C,#92,#4C,#58,#92 
378 : 

400 REM- 


402 REM Changement d ! implantation ’ 

**04 REM- 

406 : 

408 DOKE #B0,DEEK(#E9) 'Restere 480+ 
410 : 

412 REPEAT :9EAD N.B :FOR Ï=1 70 N 
414 READ Ai : DOKE A0WAL("# ! '+AS). A0+£ 
416 NEXT :'JN T IL B=#2DD 
418 : 

423 REPEAT :READ N.B :DOKE 3.A0+E 
422 FOR 1=1 TO N iRtAC Aï 

424 A=VALi '#’+aîi : POKE A0+A.=EEK;t) 
426 POKE A0+A+2.PEEK<0) :N£XT 

428 ONTIL A<=*123" : RETURN 
430 : 

450 DATA 2,#50,7,22,1,#4F.A,1,#285,3F 
452 DATA 1,#170.42,5.*309,5E. C 9,15; 
454 DATA 16E,19F,1,#68,7D,1,#EC,9B,5 
456 DATA #314.AF,Cl, 112.13s230,. 

458 DATA #207,F2,1,#14C,147.2,#7F.14A 
460 DATA 16Ï,4.#26D,158,2BB,2B0,2F6 
462 DATA 7,#164,IEB,1C2,1C°,101,202 
464 DATA 256,2DB,1,#266.23F.l.#153 
466 DATA 25D,1,#23B,267,1,#283.2A1,3 
468 DATA #2DD,2A6,2FF,305 
470 : 

472 DATA 1,#17,D,1,#15A,A1,3,#31A.A8 
474 DATA 10E.229,3,#31F,BA,12D,212.2 
476 DATA #15F,101,123 
478 : 

500 REM - 

502 REM Exemples d’utiiisatior 

504 REM- 

506 : 

503 HIRES : CORSET 120,100,3 

510 !ELP 25,25,1 :'ELL 100.100.1 

512 ELP 100,50.2 :'EL? 58,108.2 

514 ‘ElP 145.37,2 :WA1T 99 

516 'BOX 0.0.119,199,1,2 :WA1T 99 
518 'BOX 0,100,239,199.2,2:WAIT 99 
520 (PAINT 30,150,1 :WAI7 99 
522 'PAINT 200.40,1 :WAIT 99 
524 : 

526 'PAINT 125.95.1 :WAÎT 200 

528 HIRES :CüRSET 120.100.3 

530 A=15 ;B=12 sREPEAT 

532 'ELL A.A+B.l :'ELL A+B,A,1 

534 A=A+B :UNTIL A;90 :'ELL A.A,2 

536 FOR 1= 9 TO 99 STEP 2*E 

538 'PAINT 120+1*.8.100.1 

540 ‘PAINT 120-1*.8,100.1 :NEX T 

542 'BOX 39,1,201,199,1.3 

544 X=80 :V=6 :RE°EAT :K=-X :RE?EA T 

546 Y=-Y :'PAINT 120+X,i00+>.1 

548 UNTIL Y>0 îUNTIl X>0 

550 CURSET 120,100.3 : EL P 9,9.0 

552 ZAP :END 

554 : 

600 REM- 
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EUPHORIC ! 

L'excellent article sur la pile, 
publié dans THEORIC n° 20 a été 
malencontreusement amputé de 
ses listings. Nous les reprodui¬ 
sons ci-après. 

Listing 1 : Visualisation de P 

100 CIS 

110 FOR 1=118000 TO HB03F STEP 8 
120 FOR J=1 T0 1+7 

130 READ Ai : D=VAL ( ’ # 1 +Ai ) : POKE J,D:S=S+D 
140 NEXT 

150 READ CS:IF SOCS THEN PRINT’ERREUR LIGNE ’;1000+L:END 
160 S=0:L=L+10:NEXT 



170 PRINT'ETAT DE P : * ; :CALLftBOOO 
1000 DATA 08,68,48,A2,00,OA,48,8A,566 
1010 DATA 48,90,05,BD,2D,80,BO,03,762 
1020 DATA BD,35,80,AC,F9,FF,CO,01,1239 
1030 DATA FO,06,20,12,CC,18,90,03,671 
1040 DATA 20,D9,CC,68,AA,68,E8,EO,1287 
1050 DATA 08,DO,DA,28,60,4E,56,2E,780 
1060 DATA 42,44,49,5A,43,2D,2D,2E,500 
1070 DATA 2D,2D,2D,2D,20,55,55,55,480 

Listing 2 : JSR relogeables Version 1 

100 REM 

110 REM JSRs RELOGEABLES 
120 REM 

130 REM VERSION 1 

132 REM 

133 REM PAR ERIC VIEL 

134 REM 

140 FOR 1=48000 TO 48067 STEP 8 
150 FOR J=I TO 1+7 


160 READ Di:A=VAL('4'+Di):POKE J,A:S=S+A 

170 NEXT:READ CS:IF CSOS THEN PRINT’ERREUR LIGNE ’jl000+L:END 

IBO S=0:L=L+10:NEXT 


190 CALL48000 

1000 DATA A9,60,8D,E0,BF,18,20,EO,1101 

1010 DATA BF,90,05,A9,3D,AO,80,^8,914 

1D20 DATA 90,11,AE,F9,FF,E0,01,F0,1304 

1030 DATA 06,20,ED,CB,18,90,03,20,601 

1040 DATA BO,CC,60,EA,CA,CA,9A,A9,1389 

1050 DATA 53,AO,80,AE,F9,FF,EO,01,1274 

1060 DATA FO,06,20,ED,CB,18,90,03,BB9 

1070 DATA 20,BO,CC,38,60,50,52,4F,805 

1D80 DATA 47,52,41,40,40,45,20,50,553 

1090 DATA 52,49,4E,43,49,50,41,4C,594 

1100 DATA OD,OA,00,53,4F,55,53,20,385 

1110 DATA 52,4F,55,54,49,4E,45,OD,563 

1120 DATA OA,00,55,55,55,55,55,55,520 

Listing 3 : JSR relogeables Version 2 

100 REM| 

110 REM JSRs RELOGEABLES 
120 REM 

130 REM VESRION 2 

132 REM 

133 REM PAR ERIC VIEL, LE 5/5/1986 

134 REM 

140 FOR 1=46000 TO 4606F STEP 8 
150 FOR J=I TO 1+7 

160 READ Di:A=VAL(*4* +D4):POKE J,A:S=S+A 

170 NEXT:READ CS:IF CSOS THEN PRINT’ERREUR EN LIGNE ’;1000+L:END 
180 S=0:L=L+10:NEXT 
190 CALL46000 

1000 DATA A9,60,8D,E0,BF,18,20,EO,1101 
1010 DATA BF,90,15,A9,4AjA0,6O,A£,1029 
1020 DATA F9,FF,EO,01,FO,06,20,ED,1244 


1030 DATA CB,IB,90,03,20,BO,CC,60,882 
1040 DATA BA,BD,FF,00,18,69,02,90,918 
1050 DATA FF,00,BD,00,01,69,00,9D,707 
1060 DATA 00,01,CA,CA,9A,A9,60,AO,984 
1070 DATA 60,AE,F9,FF,EO,01,FO,06,1245 
1080 DATA 20,ED,CB,18,90,03,20,BO,851 
1090 DATA CC,60,50,52,4F,47,52,41,759 
1100 DATA 4D,4D,45,20,50,52,49,4E,568 
1110 DATA 43,49,50,41,4C,0D,OA,00,384 
1120 DATA 53,4F,55,53,20,52,4F,55,608 
1130 DATA 54,49,4E,45,OD,OA,00,55,412 


♦ ♦♦ 

IST 


3 : 


4 | 

3 i 

6 1 

VISUALISATION DU I 

REGISTRE ? : 


B i 

9 : 

10 

066 *8000 

i ORIGIIC 

Il t 

1? OI.AFFIC EOU 4CCI2 


13 AT.AFFIC EOU 4CCÜ9 


14 | 

13 : OEÏUT 

16 i 

17 

fW 

« ENFILE P 

18 

fLA 

t LE RECUPERE DS A 

19 

PHA 

S 5ALAE6AFCE 

20 I 

21 t 

22 

LDI MOO 


23 CONTINUE AS. 

l TWA6FEPE BIT 7 

24 i 

DW6 C 


25 l 

26 

PHA 

t SALAE GARCE 

V 

TIA 

l A ET ISUR LA 

18 

FMA 

I PILE 

29 i 

30 

KC >1 

:TEST SI CM 

31 t 

32 

LDA TABLE.I 


33 

ICS >2 


34 J 

33 >! 

LDA TAM12.I 


36 t 

37 >2 

LDY *FFF9 

: TEST ORIC 1 

33 

C Tl II 

1 ORIC ATWS 

39 

KO .-3 


40 : 

41 

JSR OI.AFFIC 


42 

ac 


43 

KC >4 


44 j 

45 >3 

JSR AT.AFFIC 


46 t 

47 >4 

PIA 


48 

TA! 

t RECUPERE i ET A 

49 

PIA 

: CE LA PILE 

50 t 

51 

INI 

: SUIVANT... 

52 

CPI RB 

1 ôrwe BIT ’ 

53 

I* CONTINUE 

: wm 

54 J 

53 

PLP 

: RESTORE P A SA 

56 : 

VALEUR INITIALE 


57 

RTS 

8 FIN 

38 : 

39 s 

60 TABLE 

ASC -W.IOIZC- 


61 TABLE2 

ASC -’ 



23 KC PONT 

2* i 

23 IDA MSI 

26 Uff /ICSI 

27 j 

28 SEC 

29 PCHT ICC BOUT PC 

30 t 

31 LDI KFF9 

32 CP! Ml 

33 KO >1 

34 JSR OI.STROU 

33 ac 

36 ICC >2 

37 >1 JSR AT.STROU 

38 >2 RTS 

39 j 

40 i 

41 ROUTI* TSI 

42 CEI 

43 DE! 

44 ns 

43 t 

46 IDA «CS2 

47 LOT /ICS2 

48 t 

49 LO! IFFF9 

30 CPI Ml 

31 SCO >1 

32 JSR OI.STROU 

53 ac 

34 KC >2 

33 >! JSR AT.STROU 

36 | 

37 >2 SEC 

38 RTS 

59 | 

60 | 

61 ICSI ASC PR06RMVC PRINCIPAL’ 

62 ICI 00.04.00 

63 ICS2 ASC ’SOUS BOUT UC' 

64 IC! 00.04.00 


:POIDS FAIlLf 
:POIOS PORT 

I PORT 


I COUPA Tl ILE 


jpoios faire 

: POIDS FORT 
lCC*#>ATIR£ 


1 IST 

2 i- 

3 i l 

4 : JSR* RELOGE ARES » 

5 i s 

6 | VE RS IC* 2 t 

7 ! : 

B : CCNPATKE ORIM/ATNOS t 

9 I l 

10 ,- 

11 I 

12 OM 46000 i 0RI61K 

13 i 

14 RETOUR EOU IIFEO 
13 OI.STROU EOU 4CIED 

16 AT.STROJ EOU ICCM 

17 t 

18 LDA *160 t RTS 

19 STA RETOUR 

20 l 

2 1 ac 

22 JSR RETOUR 


23 

ICC BOUT!* 


24 t 



23 

IDA «SI 

t POIDS FAIRE 

26 

LDI /ICSI 

:POIDS FORT 

27 : 



20 j 



29 

LDI *FTT9 

tCOHPATIKE 

30 

CP! Ml 


31 

KO >1 


32 

JSR OI.STROU 


33 

ac 


34 

KC >2 


33 >1 

JSR AT.STROU 


36 >2 

RTS 



37 t 

38 i 


♦ ♦ 

1 LST 

? -- 

3 i : 

4 i JSR* RELOGEABLES i 

5 : : 

6 i VERSION t I 

7 : : 

B : CCflPATRl ORIC-I/ATHOS : 

9 ! j 

10 ,- 

11 I 

12 ORS 48000 : ORIGIIC 

13 x 

14 RETOUR EOU 4IFE0 
13 OI.STROU EOU 4CKD 

16 AT.STROU EOU 4CCJ0 

17 i 

18 LDA 4460 : RTS 

19 STA RETOUR 

20 i 

2 t ac 

22 JSR RETOUR 


39 BOUT!* TSI 

40 LDA RFF. I 

ai ac 

42 ADC 402 

43 STA 40FF.I 

A4 LDA 4100.1 

45 ADC 400 

46 STA 4100.1 

47 DE! 

48 DE! 

49 TIS 

30 I 

31 LOA «S2 ; POIDS FAIILE 

52 LOT /ICS? : POIDS FORT 

33 t 

54 LDI 4FFF9 tCONPATIKE 

33 CPI Ml 

36 KO >! 

57 JSR OI.STROU 

58 ac 

59 KC >2 

60 >1 JSR AT.STROU 

61 i 

62 >2 RTS 

63 i 

64 t 


Le maquettiste fou a encore frappé... La ligne 405 du listing 
SINGERIE, page 21, THEORIC 22, a disparu entre les lames de ses 
ciseaux. La voici, replacée dans son contexte. 

400 DATA 7D.7D,7D,7D.7D,7D,7D,7D,IA.1A,IA,IA,1A,IA.IA.IA.0E3P 
405 DATA IA, IA, IA. 1A, 1A,1A,IA,IA,1A,1A.1A,1A.1A,1A.IA.IA,0FDD 
410 DATA IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA,IA.IA,117D 
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ABONNEZ 

VOUS. 

-*1 \ v (o fô 

f 4 lord.^ 

CM \ 

«oie sur le proche* n do mo i s . 1 

Pour être pr« ®^ C ° oUS parvenir ° van prénorn . J 

NOM .. I 

Adresse vi"« \ 

Code Posta' . Signature yQ j J 

SORACPM 

Tarif avion • 



LES DISQUETTES DE THEORIC 

Tous les programmes de THEORIC/ groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n” 4 et 5 
N° 2 THEORIC n° 6 et 7 
N° 3 THEORIC n° 8 et 9 
N° 4 THEORIC n° 10 et 12 
N° 5 THEORIC n° 13 et 14 
N° 6 THEORIC n° 1 5 et 16 
N° 7 THEORIC n° 17 et 18 
N° 8 THEORIC n° 19 et 20 
N° 9 THEORIC n° 21 et 22 
N° HS THEORIC HORS SERIE (n‘ 


H) 


VOLUME : TOI9120 


U LE0RIC1 .BAS S 


74 SECTORS 







U 

TABLEAU. BAS 

S 

6 SEC'ORS 

U 

EUROPE 

.BAS 

S 

52 SEC T 0RS 

J 

INTERPPE.BAS 

S 

35 SECTORS ■ 

U 

BULLELK 

. BAS 

S 

6 SECTORS 

’J 

MYSTERE .BAS 

s 

16 SECTyRS 1 

U 

MIROIR 

.BAS 

5 

1<» SECTORS 

ü 

PO ISS AM. PAS 

s 

55 SECTORS • 

U 

DEUXSPHE.BAS 

s 

° SECTORS 

U 

ECRAMIXT.EA5 

S 

3 SECTORS 

U 

RwSED 

.BAS 

C 

** SECTORS 

ü 

FASTEXSO.BIN 

c 

3 SECTORS 

U 

DUMP 

.BAS 

S 

7 SECTORS 

U 

UTILIDAT.BA5 

s 

10 SECTORS 1 

U 

CHEC5EC 

.BAS 

5 

5 SECTORS 

U 

UTILITEL.BIN 

s 

3 SECTORS 

U 

COMPTE 

.BAS 

s 

18 SECTORS 

U 

UTILïTEL.BAS 

s 

20 SECTORS 1 

U 

FENETRE 

.ÏÏN 

5 

18 SECTORS 

ü 

VALOCAT .BAS 

s 

14 SECTORS J 

U 

UT IL*» 

.BAS 

s 

14 SE "OR.- 

U 

VAL0CT01.BAS 

s 

8 SECTORS. 

U 

LOGO 

.BAS 

s 

14 S£C T CRS 

U 

MENULE01.BIN 

s 

10 SECTES 

U 

MININTER.BAS 

c 

7 SECTORS 





0 

CODASC 

.BAS 

s 

6 SECTORS 

259 SECTORS RREE 












BON DE COMMANDE 
DES DISQUETTES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 78 
Ci-joint : 135 F par disquette et mon étiquette abonné 
165 F par disquette car je ne suis pas abonné 
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Soit au total la somme de 
que ci-joint. 


F réglée par chè- 


NOM . Prénom. 

Adresse . 

Code Postal .... Ville . 





















Sauvetage d’un 
programme accidenté 

Michel SALMON 

V ous venez de modifier un de vos programmes et 
le moment est venu de le sauvegarder. Le magnéto 
est prêt, et vous lancez votre CLOAD. Soudain, 
plus rien sur l'écran, la coupure secteur ! Le bon réflexe, 
stoppez le magnéto. 


A partir de là, de quoi disposez- 
vous sur votre bande ? En fait, 
vous disposez de trois parties qui 
sont : le début de votre nouvelle 
version, la zone intermédiaire cor¬ 
respondant à l'accident et le reste 
de votre version précédente. 

Si vous procédez au chargement, 
deux cas peuvent se présenter : 
soit le chargement s'effectue nor¬ 
malement avec un message 
"ERRORS FOUND", soit celui-ci 
semble interminable, stoppez-le 
par un "RESET''. 

A ce stade, si vous faites un 
LIST, vous verrez défiler votre 
programme jusqu'à la zone de 
l'accident. Le jeu de piste 
commence là. 

Un petit rappel sur la constitution 
d'une ligne Basic (voir THEO- 
RIC n° 3) (figure 1 ) : 

Pour reconstituer votre pro¬ 
gramme, voici les différentes éta¬ 
pes à suivre : 

ADRESSE DE 

FIN DE PROGRAMME 

Votre programme s'est terminé 
avec "ERRORS FOUND", vous 
devez avoir l'adresse de fin en 
#9C et #9D. 

Votre programme s'est terminé 
avec un "RESET", vous recher¬ 
chez son adresse de fin en # 2AB 


et # 2AC (#61 et #62 sur 
ORIC-1 ). 

Augmentez cette adresse de 
quelques octes et placez-la en 
#9C et #9D avec un DOKE 
approprié. 

PROGRAMME DE RECHERCHE 

Si votre programme a des lignes 
0 et 1, notez-les avant d'intro¬ 
duire les lignes suivantes : 

0 FOR 1= #501 TO # DEEK 
( # 9C):IF PEEK(I) = 0 THEN 1 
ELSE NEXT:END 
1 PRINT HEX$(I + 1),HEX$(DEEK 
(1 + 1)),DEEK(I + 3):GET X$: 
NEXT:END 


RECHERCHE DU 
CHAINAGE DES LIGNES 

Faites RUN, vous allez alors obte¬ 
nir : Adresse ligne Adresse 
ligne suivante Numéro de 
ligne courante. 

NOTE : Pour les numéros de ligne 
inférieurs à 256, le second octet 
étant nul, vous aurez des éditions 
"parasites". 

Vous êtes en mesure de vérifier 
le chaînage des lignes de votre 
programme jusqu'au niveau de 
l'accident. Après, vous constate¬ 
rez une divergence entre 
l'adresse de la ligne suivante et 
son adresse effective. Calculez la 


différence et procédez au trans¬ 
fert de toute la dernière partie de 
votre programme pour obtenir les 
bonnes adresses mémoire. 

TRANSFERT DE 

LA SUITE DU PROGRAMME 

• Si vous disposez d'un moni¬ 
teur, aucun commentaire. 

• Sans moniteur, vous pouvez 
procéder, en mode direct, comme 
suit : 

J = # Add. dest:FOR l=#Ad. 
dép. TO # Ad. fin:POKE J, 
PEEK(I):J = J + 1 :? 2,24; 

HEX$(I):NEXT:PING 
Ad. dest = adresse destination 
pour mise en place de fin de pro¬ 
gramme. Ad. dép et fin = adresse 
départ et fin de la partie de pro¬ 
gramme à transférer. 

? 2,24;... pour suivre le trans¬ 

fert. 

NOTE : Commencez par la fin et 
faire STEP-1 si le transfert doit se 
faire vers des adresses hautes. 

RETABLISSEMENT 
DU CHAINAGE 

Au niveau de la dernière ligne de 
la première partie, dans les deux 
octets d'adresse de la ligne sui¬ 
vante, placez, avec DOKE, 
l'adresse mémoire de la première 
ligne correcte de la dernière par¬ 
tie. 

Si le raccordement est bon, vous 
pourrez tester votre programme 
jusqu'à la fin. 

RESTITUTION 

DES MARQUES DE FIN 

La dernière ligne Basic de votre 
programme doit se terminer par 
3 octets nuis (1 séparateur + 2 
pour adresse de ligne suivante). 
Mettez ces 3 octets nuis en place 
et dans #9C et # 9D placez 
l'adresse du deuxième octet nul. 
Lorque tout est correct, faites 
une sauvegarde et même deux si 
vous devenez prudent. 


00 


J L. 


__I L22. 


ligne Basic 
L_ numéro de la ligne 


_ adresse de la ligne suivante 
_.séparateur de ligne 


Figure 1 
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LES CALCULS 
DELON 


W.LUTHER 


Vous connaissez sûrement les 
relations suivantes : 
sin(pi/2) = 1, 
sin(2*pi) =0, 
arctg(1) = pi/4, 

sujet favori de votre (ancien) pro¬ 
fesseur de maths. 

Mais regardez attentivement les 
calculs de l'ORIC : 
sin(PI/2) = 0.9999..., 
sin(2*PI) = 7.314*10t -9, 
ATN(1)-PI/4 = 2t -30 = 9.31 * 
10Î-10. 

Des erreurs d'arrondi, direz-vous, 
mais l'ORIC sait mieux faire, 
essayez : 
sin(2*ATN(1 )) = 1, 
sin(8*ATN(1 )) =0, 
ou comparez 4*ATN(1 ) à la vraie 
valeur de : 

pi = 3.14159265358979... 
Résumons donc : 

L'ORIC «connaît» la constante PI, 
qui est stockée dans la ROM, 
mais sa précision laisse à désirer, 
d'autant plus que 4*ATN(1) 
donne une résultat nettement 
plus proche de la vérité. 

Pour traiter le problème à fond, il 
faudrait fouiller la ROM, ce qui, 
par cette chaleur estivale, n'est 
pas trop amusant. Mais voyons, 
tout le travail est déjà fait pour les 
heureux possesseurs du livre 
ORIC A NU, parmi lesquels je suis 
depuis quelques jours. Sans exa¬ 
gération aucune, ce livre est une 
mine de renseignements pour 
ceux qui veulent comprendre le 
fonctionnement d'un microproc- 
cesseur. Il concerne tous les ordi¬ 
nateurs qui emploient le 6502. 
Pour résoudre notre problème, 
consultons les pages 215 et 251 



et apprenons que l'ORIC utilise 
pour la constante pi le nombre 
flottant : 

82 I 49 I OF I DA I 9E 
t 

bit de signe 1 < 

0 < — > +. 

= (# 490F* 21 - 1 5 + # DA9E*2t 
-31 + 1 )*2t (# 82- #81) 

= (1 +2Î - 1 +21 -4+21-7 + 
21 -12 + 21 -13 + 21-14 + 
21-15+ ... + 2t -28 + 21 — 

29 + 21 -30)*2 

Le codage semble être compli¬ 
qué, mais une rapide consultation 
des pages 195-201 nous 
apprend le nécessaire sur les 
nombres flottants. 

Les routines trigonométriques ne 
se basent pas sur la constante PI, 
la page 251 nous propose une 
autre approchée plus précise : 

2 * pi = 83I490FDAA2 
d'où 

2*pi-2*PI = (4*2t-31)*2 
= 21-28 

Essayons maintenant de com¬ 
prendre comment l'ordinateur 
calcule ATN(1) + pi/4 ou plus 
généralement ATN(X). 

Là aussi, le livre nous guide. 
L'ordinateur ramène l'argument X 


'/U A % 

G) 7 5 > 

7 A? * 

j, 3 g)b'* 

o 3 a es)' 
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à l'intervalle [0,1 ] en utilisant les 
deux relations : 
arctg(-x)= -arctg(x), et 
arctg(x) = pi/2 - arctg( 1 /x), x > 0 
et ensuite il évalue le développe¬ 
ment limité : 

ATN(X) = (.(Al 1 *Xt2 +A10) 

11 

*Xt 2 + A9)*XÎ 2 + .... 

+ A1)*X12 +A0)*X. 

Les coefficients figurent sur un 
tableau page 253 : 

A0= 1, Al =.333333316.... et 
finalement : 

A9 = 0.16111 7018 
Al 0 = 0.0048 5094216 


Lancez un RUN et vous verrez 
deux résultats : 

1) sin(0)/0 = pi/2 

2) lim sin (2*pi + 21 — n)/21 
- n = pi/2 n — oo 

Faudrait-il revoir les livres de 
maths ? 

Si vous pensez que c'est encore 
une fantaisie de l'ORIC, rassurez- 
vous, le même effet se trouve sur 
les APPLE et les COMMODORE 
(le noyau MICROSOFT est omni¬ 
présent), contrairement à cela, on 
trouve un résultat correct sur les 
AMSTRAD et APPLE sous CP/M 
utilisant le CPU Z80. 

Avec l'aide des pages 249 à 251 
du livre, nous tentons une expli¬ 
cation. Nous avons posé : 

W = 8*ATN(1), V = 4»ATN(1 ), 
P2 = W + V-V, ZERO + W + 
V-V-W. 

L'ordinateur évalue : 

P2 = W + 2t -29, ZERO + 21 -29, 
ce qui est tout à fait honorable, 
vu la précision de calcul garantis¬ 
sant 9 chiffres significatifs. 

On devrait donc s'attendre à : 


Ail = - .000684793912. 

Le plynôme, un mélange de série 
de TAYLOR, polynôme de 
Chebychev et fraction continue 
(voir page 204 pour une explica¬ 
tion complète) s'avère être une 
très bonne approchée de l'arctan- 
gente, l'erreur est de l'ordre de 
101 - 10 . 

D'où 

2*pi = 8«ATN(1 ) + c*101 - 10, 
Ici <8. 

Regardons maintenant une autre 
bogue de la ROM concernant le 
calcul de la fonction sinus et 
introduisons le petit programme 
^ suivant : 


sin(P2)/ZERO = sin(2t - 29)/ 
21-29=1. 

Mais il n'en est rien. Pour évaluer 
sin(P2), l'ordinateur ramène l'ar¬ 
gument à l'intervalle [0,2*pi] ou 
plus précisément (0,1 j et le déve¬ 
loppement en série de la fonction 
sinus concerne l'argument nor¬ 
malisé x/(2*pi). Son premier 
terme est égal à 2»pi*x/(2*pi). 
Et c'est à ce moment-là que les 
choses se corsent : l'ORIC cal¬ 
cule : 

P2/(2 * pi) et INT(P2/(2 * pi)) 
et trouve : 

1+21-31 et 1, 
ou en décimal : 

P2= 1.0000000000465 

III e chiffre 
ce qui est loin du résultat cor¬ 
rect : 

P2= 1.000000000295 
mais peut-on attendre plus quand 
on calcule avec une précision de 
9-10 chiffres ? 

Puis, la routine amène 1+21-31 
à l'intervalle [0,1 ] en soustrayant 
1. Il s'en suit : 


sin(P2)/ZERO = sin(2*pi* + 21 
-31)/2Î - 29 = pi/2£l. 
Comment améliorer la routine ? 
Une première modification pour¬ 
rait être la suivante : 

X — X/(2 * pi) — ) — INT(X/2*pi)) — 
évaluation développement limité 
i 

X-INT(X/(2*pi))*2*pi-(X- 

INT(X/(2*pi))*2*pi)/(2*pi) 
version améliorée. 

Dans notre cas, on trouverait : 
sin(P2)/ZERO = sin(2t -29)/2t 
- 29 = 0.998, résultat médiocre 
avec seulement deux chiffres 
significatifs. Nous vérifions nos 
doutes : 

Même problème pour : 
sin ( 21 -29) = 1.860077E-9, 
trois chiffres significatifs. 
Décortiquons alors toute la rou¬ 
tine : 

Le premier pas consiste à trans¬ 
former l'argument en x en y : 
y = x/(2*pi) — int(x/(2 *pi)), 
y est ensuite ramené à l'intervalle 
[-1/4,1/41. 

Il reste trois cas à discuter : 

1) 0< =y< 1/4—évaluation de 
sin(2*pi*( - (1/4-y) + 1/4)) 

2) 1/4<=y = 3/4 — sin(2*pi* 

( - ( - 1(1/4 - y) + 1/2J + 1/4))) 

3) 3/4<y< 1 - sin(2*pi*((1/4 
-y) + 1/2 + 1/4)) 

par le développement limité, quel 
travail I 

Toutes ces manipulations sont 
peut-être économiques, mais 
mènent à une perte de précision 
considérable, dès qu'elles addi¬ 
tionnent une donnée de très fai¬ 
ble valeur et 1/4, 1/2, etc. 

Pour faire mieux, il faut calculer 
en sus l'argument normalisé : 
arg = x — int(x/(2 * pi)) * 2 * pi, 
le stocker et le modifier selons les 
trois cas en arg si y< = 1/4 ; 
arg — 2*pi si y >3/4 et finalement 
en pi-arg si 1/4< = y< =3/4. 

On supprime carrément la divi¬ 
sion par 2*pi et adapte le tableau 
page 251 en enlevant les fac¬ 
teurs (2»pi). 

CONCLUSION 

Si vous voulez écrire votre Basic 
personnel, fiez-vous à un bon 
livre et méfiez-vous des routines 
préfabriquées, même si elles sont 
signées par des gens de chez 
MICROSOFT^ 


lfi N=8T0TNC 1 ) 5 REM 2*Pi 
20 V=440TNC 1 > = REM Pi 
30 ZER0=H+V-V-U = REM 2"-29 

40 P2=W+V-V = F-F'2 : Z= SI MC F' >• REM SI MC 0 >=S I MC 2*P i > 
50 N=ZER0 

60 PF: I MT "SIMC 0 >/0 ="; Z/M = REM SIMCO)/0=1 
70 FRIMT"SIMC O)/0-Pi/2=" ; Z/M-V/2 
75 0=1 

30 F0RI=1T0 20 
85 0=0/8 

90 P-P2+0^ M=ZER0+0 = Z=SIMC P > 

1 00 PR I NT" SI NC 2 '"— " I " *3 V2 A - " I " *3 = " ; Z/N 
110 NEXT ■ 
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(Reprise rie w@im ancien OiïlC 


Pour l'achat de l'un des ensembles TELESTRAT décrits ci-dessous 

ORIC TELESTRAT 


HYPER-BASIC : 


Structuré et compilé Plus de 2S0 instructions qui en font le Basic 
le plus complet et le plus rapide du marché. En plus des 
instructions classiques (toutes les fonctions arithmétiques et 
logiques, structures de contrôles, gestion du son et des 
graphismes haute et basse résolution etc..on trouve la définition de 
procédures (labels), un éditeur plein écran avec commande au 
clavier, à la souris ou au joystick, scrolling avant/arrière (sur les 
listings), un jeu d'instructions télématiques (attente de 
communication, téléchargement de programmes ou de fichiers via 
le MINITEL..), des instructions de communication avec n'importe 
quel autre ordinateur via le RS 232. Entrées/sorties banalisées et 
bufférisées gérées par numéros de canaux, permettant notament le 
transfert de données de n'importe quelle entrée à n'importe quelle 
sortie. 4 fenêtres d'écran définissables par l'utilisateur. 
L'HYPER-BASIC est interfacé dans le 2 sens avec le loaiciel 
TELEMATIC : une arborescence peut rendre la main au Basic, et 
un programme Basic peut appeler une fonction de TELEMATIC. 


Extensions prévues (hard et soft) avant fin 86 


Carte 80 colonnes entièrement compatible VIDEOTEX. Sortie PERITEL 
KVB Incrustation vidéo possible. 

ORIC NET pour créer un réseau de TELESTRAT pouvant communiquer entre 
eux et partager les mêmes ressources. Exemple: Un TELESTRAT maître avec A 
MICRODISC et A TELESTRAT esclaves en serveurs ou autres pourront 
partager la base de données et tous les périphériques . Cela en fera le système 
multi-utilisateur* le moins cher du marché. 

MIDI : interface avec logiciels de téléchargement de séquences et de sons, 
séquenceurs, plus extension du BASIC permettant de réaliser soi-méme des 
logiciels MIDI. 

MODEM avec numérotation et réponse automatiques. 

Digitaliseur d'images VIDEOTEX fonctionnant à partir d'une caméra 
vidéo. Pour des serveurs "pros”! 

Horloge en temps réel CartQllCllfc &AML64L d'extension mémoire 
GANG PROGRAMMER programmateur d'Eproms 2708 à 27512 pour 
développer les applications en ROM. 


TELEMATIC 


Le logiciel intégré qui permet de réaliser soi-méme 
Facilement un serveur monovoie : 

Emulation MINITEL Commande du MINITEL au clavier du 
TELESTRAT ou du TELESTRAT au clavier du MINITEL. 
Visualisation des pages MINITEL sur l'écran du TELESTRAT. 
mémorisation des pages VIDEOTEX sur disquette, impression de 
pages sur imprimante standard. 

comme avec un traitement de leste (couleurs de fond el de 
caractères, lettres simple ou double largeur et/ou hauteur etc..) 
avec la possibilité d'incorporer des graphismes. Ea gestion d'écran 
se fait au clavier, au joystick ou à la souris. 

Citslian_d'arbore scences : une fois les pages composées et 

nommées, vous organisez votre arborescence à votre gré : menus, 
pages écrans, pages temporisées etc.. Arborescences affichées en 
couleurs, ou imprimées. One arborescence peut gérer plus de 1000 
pages, une disquette peut en stocker 2 à 300. 

Micro-serveur : Le TELESTRAT ainsi utilisé est un serveur 
mono-voie. Connecté au MINITEL, il attend la communication, 
décroche et lance le serveur. Il peut enregistrer des messages, 
raccrocher au bout d'un temps déterminé etc.. 

Borne de communication : déconnecté du MINITEL, il peut 
fonctionner en mode local et un utilisateur peut interroger le 
serveur sur place, eiactemenl comme s'il appelait au MINITEL. 
Avec une arborescence de type journal cyclique, il peut délivrer de 
l'information automatiquement, sans intervention ezlérieure. 

Interaction —ptmitüLc_avec_ I'HYPER-basic pour l'accès auz 

fichiers ou pour des applications plus sophistiquées. 



- Unité centrale TELESTRAT 64k 

- Unité de disquettes 3” doublé face MICRODISC (400k) 

- Cartouche programma TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Talematique, Index BASIC) 

- Tous les cables (MINITEL, PERITEL, Téléphoné etc..) 

- Alimentation Sactaur 220V pour la TELESTRAT at la disque 


Un "kit développeurs" 

A l'attention des constructeur* ou développeurs 
do systèmes, matériel et logiciels susceptibles de 
fonctionner avac le TELESTRAT, noui avons 
réuni un -KIT DEVELOPPEURS- comprenant 
notamment un dossier système avec tous les 
vecteurs du langage-machine, toutes las 
adresses-mémoire, un dossier technique, un 
programmeur d'EPROMS etc.. Pour tous 
renseignements, contacter Jean-Pierre MORLANE 
au 42 81 20 02. 


Ensemble TELESTRAT n°1 



Votre TELESTRAT en formule crédit ! 

Crédit à durée variable selon le montant. Faible apport a la commande et premier versement 3 mois plus tard I 


E n aa m pta n*1 Mm repHw 3990 F su œmptant 
à la commanda 40? F 

U mantueSté* Cm XK) F (V 90 foum apréa) 

T E G an «guaur au 1/7*6 18.24%, at parcapoom 
todaaalrM 138 F . oontormémant à ranété Ou V7/M 
Coùi total ou créai 1012F (AaaOMetPF oompnse) 

Enaampia n‘1 avec isprtaa 5300 F au comptant 
à la oommando «ara appon 

Ifimanauaatéadt 2S0 F {1* BO )oui* apréa ) 
T E.Q. an kftguaor au 1/7*6 16.24%. at pansapaona 
to**».â.raa 96 F . coniorméman» * rarrétf du 3/7/M 
Coût total du crétft 702 F (Aas. OM at PF ccmpnaa) 


Enaamt* n*2a, 


i r»pm* 4760 F au comptant 


29 manaoaSte* dé 200 F 11* 90 pun apréa ) 

TE G anviguaurau 1/7/M : 1624Vatparcapoona 
tortattairaa 232 F confomtomani 6 /arrêté du 3/7/M. 
Coût toUJ Ou çrtdt 1633 F |A** O'M «t PF comprise) 

Enaameta n'2 avac rapnaa 4000 F au comptant 
â la commandé 226F 

19 manauattéa dé 2S0F ( 1'00pur*apréa ) 

T E G an wguau» au 1/7/M . 1624%. at parcapoona 
tortaJatmo H4 F. oontormémant è rarrété du 3/7*6 
Coût total du crée* 916 F. (Aaa 0*4 at PF oompnea) 


EnaamOÉa n*3 oana rapdae 6960 F au Comptant 
4 la commandé 4*2 F 

4t man»j»Mtdé 200 F ( 1* 90 foum apréa ) 
T 6 G en «éggaur au 1/746 1624V at parcapoona 
Vxia/>«réa4lOF oontormémar» à rar-eu d- V7*6 
Coût total Ou créot 2732 F (Aaa 0M«t FF. oompnaai 

Ensamoia n'3 avac taprtaa $260 F. au comptant 
a >a c o mmandé 77F 

26 manauaHéadé 250 F. ( V 90 Jeun apréa ) 
T E G en vtguaur au 1/7/66 :16 24%, at paretpuon» 
•ortetarfM 260 F . coniorméman» 6 TarréU du 3F7M 
Coût total du c*d« 1617 F (Aaa DIM at PF. ccmpnaa ) 


Après acceptation de votre dossier par la Société CREG 19 Rue Lord Byron 75384 PARIS CDX08. 
S A. au capital de 81 755 000 Fr. RCS. PARIS B 542052907 






















































1 ouATMOSpour 


690 F. 


Offre exceptionnelle 




PP 

SVfflHKB 


Ensemble TELESTRAT n 2 


- Unité centrale TELESTRAT 64k 

- Unité de disquettes 3” double face MICRODISC (400k) 

- Moniteur monochrome vert EUREKA MV12 haute résolution 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (Peritel, Moniteur, MINITEL etc...) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 


Des serveurs déjà en 
fonction sur TELESTRAT: 


EUREKA : 
PHAETEL: 
VISMO : 
I.T.S. : 
E.P.V.S. : 
COGECOM 


(1) 42 81 
(1) 43 22 
(1) 43 38 
(1) 42 82 
(1) 69 04 
(1) 43 29 


IN Bureau d'etudes 90 95 
ESPACE MICRO (1) 42 80 
P.A.I. : 49 46 

DUBASQUE : 40 70 


22 72 
17 73 
00 29 
02 41 
94 01 
55 35 
21 00 
26 10 
67 87 
08 07 


5950 F 

_i_ecin r 






Ensemble TELESTRAT n°3 


- Unité centrale TELESTRAT 64k 

- Unité de disquettes 3" double face MICRODISC (400k) 

- Moniteur couleur RVB/PERITEL 36cm EUREKA MM14 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (MINITEL, PERITEL, Téléphoné etc..) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 



Perioheriaues 


Accessoires 


Loaiciels 


Moniteur monochrome vert MV12 . 1150 Souris pour TELESTRAT . 490 Disquette "JEUX D'ARCADE N*l” (3jeux) .. 200 

Moniteur couleur EUREKA MM14 . 2490 Joystick type QUICKSHOT 1 . 95 Disquette "JEUX D'ARCADE N*2" (3jeux) .. 200 

Magnétocassette ORIC à piles . 350 Joystick type QUICKSHOT 2 . 120 Disquette "DANGEREUSEMENT VOTRE” .. 200 

MICRODISC supplémentaire (sans alim.) .. 1790 Cable pour imprimante parallèle . 180 Cartouche ROMATMOS (émulation ATMOS) .. 200 

Imprimante matricielle COSMOS 80 . 2890 Disquette vierge 3" double face . 39 Carlouche ROMORICI (émulation ORIC 1).200 

Imprimante plotter 4 couleurs MCP40 . 990 Alimentation pour MICRODISC . 490 Cartouche "TEI.E-FORTH” . 390 


Bon de commande à retourner à : 


ORIC 

TELESTRAT 


LA TELEMATIQUE EN PLUS ! 

Teleph. 42 81 20 02 Tlx. 649 385 

Démonstration et informations sur MINITEL 

au 42 81 22 72 


ORIC INTERNATIONAL 39 Rue Victor Massé . 75009. PARIS 

I-- 

Je souhaite recevoir rapidement un ensemble TELESTRAT n* . (cocher la configuration choisie) 

□ Ensemble n*1 (TELESTRAT avec MCROOiSC et cartouches) au prix do 3990 F. 

□ Ensemble n*2 (TETESTRAT avec MICRODISC. moniteur vert et cartouches) au prix de 4750 F. 

□ Ensemble n'3 (TELESTRAT avec MICRODISC. moniteur couleur et cartouches) pour 5950 F. 

□ Accessoires et périph. (préciser) . 

Je vous renvoi mon ORIC 1 □ ou ATMOS □ pour reprise 690 F. OUI □ NON □ 

□ Ci-joint mon règlement par chèque de . (montant de ma commande . - 690 F. 

■ en cas de reprise) 

□ Je choisis de régler à réception du colis (montant de ma commande . - 690 F. en cas 

de reprise ♦ 100 F de frais de contre remboursement) 

□ Je choisis de payer mon TELESTRAT à crédit selon la formule décrite d-contre. en . 

mensualités de . F. Cl-joint mon apport initiai de . F. par chèque et les pièces 

nécessaires à la constitution du dossier ", 

Je bénéficierai d’une garantie totale d’un an Pièces et Main d'asuvre sur le materiel ainsi qu’une 
- maintenance gratuite logiciels (mises à jour) pendant cette période. 

Nom ..... Signature (des parents si client mineur) 

Adresse . 


Professionnels de la télématique, nous 
consulter pour RV. et démonstration 


Code . Ville . 

•* Joindre â route demande de crédit un bulletin de salaire, une photocopie de pièce (f identité, une quittance de 
loyer ou (f EDF/GDF, et un Relevé (f Identité Bancaire pour la constitution du dossier. 







































































TRAMES ET COLLAGES 


Dans la lignée des routi¬ 
nes graphiques, voici une 
technique bien connue 
dans le tricot et dans la 
couture le PATCH¬ 
WORK. 

C'est une routine multi-usages, à 
trois options, plus une routine 
facultative. 

• 0 : Inversion de couleur fond/ 
encre d'une surface délimitée par 
un polîgône fermé irrégulier quel¬ 
conque : "REMPLIR". 

• 1 et 2 : Génération automati¬ 
que d'une trame orthogonale 
dans la même emprise à partir 
des quatre paramètres placés 
préalablement en mémoire : 
"TRAMES". 

1 — Traits couleur PAPER sur le 
fond couleur INK, 

2 — Traits couleur INK sur le fond 
couleur PAPER, 

3 — Incrustation dans la même 
emprise d'une image relevée sur 
un écran virtuel, placé à partir de 
l'adresse # 5000 : "PATCH¬ 
WORKS" 

— Suppression du contour : 
"POCHAGE". 

• L'option 3 est la plus impor¬ 
tante. Elle permet non seulement 
d'utiliser n'importe quelle trame, 
mais aussi de réaliser des mixa¬ 
ges, incrustations, médaillons et 
toutes sortes de collages à partir 
de différents dessins libres. 
Mais reprenons au début. 

Avant de faire l'appel à la routine 
par CALL #7028, OPTION, le 
curseur doit être placé à l'inté¬ 
rieur du contour par CURSET 
X,Y,3. 


D. VASIUEVIC 


La première partie de la routine 
identifie les points du contour et 
inverse en même temps la cou¬ 
leur de l'emprise. Cette inversion 
est indispensable pour la 
méthode d'identification utilisée. 
Les abscisses des points gauche 
et droit d'une ligne, ainsi que l'or¬ 
donnée commune, sont rangées 
dans les tables. Le contour doit 
être absolument fermé. Un seul 
point manquant et tout le dessin 
peut être perdu ! Pour éviter les 
dégâts dûs à une mauvaise 
manoeuvre, la routine comporte 
un arrêt d'urgence que l'on pro¬ 
voque en appuyant sur la touche 
l (curseur vers le bas). La scru¬ 
tation du clavier n'est pas inhi¬ 
bée. 

En cas de l'option 0 - "REM¬ 
PLIR”, la routine s'arrête après 
l'inversion de couleur de l'em¬ 
prise. Dans le cas d'un autre 
choix, le paramètre d'option est 
testé et le progamme continue 
selon le cas. 

Les trames orthogonales sont 
générées automatiquement en 
fonction de quatre paramètres : 
A — Nombre de lignes pleines 
d'un motif (épaisseur du trait), 
B — Nombre de lignes vides d'un 
motif (épaisseur du blanc), 

C — Nombre de colonnes pleines, 
D — Nombre de colonnes vides. 
La routine place la valeur 2 - 
"inverse", ou la valeur 3 - "ne 
fait rien" en fonction de l'option 
1 ou 2. Elle calcule la largeur du 
motif : F = C + D et la hauteur du 
motif : E = A + B. Les coordon¬ 
nées du point à traiter étant X, Y, 
la condition pour obtenir un 
"blanc" est : (reste de X/F>C et 


reste de Y/E>A). Ce blanc aura 
la couleur soit du fond, soit de 
l'encre en fonction de l'option 1 
ou 2. 

Pour illustrer l'utilisation des para¬ 
mètres A, B, C, D combinés avec 
options 1 ou 2, vous pouvez uti¬ 
liser le listing de l'encadré 1. Si 
la saisie de la routine était cor¬ 
recte, vous devez obtenir l'image 
de l'encadré. 

Les trames générées peuvent être 
utiles pour les cartes géographi¬ 
ques (figure 1 ) ou tout autre trai¬ 
tement nécessitant la différencia¬ 
tion de plusieurs surfaces (rappe¬ 
lons que sur ORIC, les six points 
d'une adresse écran ne peuvent 
pas être tous de couleurs diffé¬ 
rentes, d'où la nécessité de tra¬ 
mage). La trame générée est par 
définition continue. Si l'on utilise 
une même trame pour plusieurs 
zones, on se rendra bien compte 
de cette continuité, ce qui peut 
être utile. 

L'option 3 est la plus intéres¬ 
sante. Elle peut être exploitée de 
plusieurs manières. 
Commençons par la plus simple : 
l'extension de tramage à n'im¬ 
porte quel type de trame. En 
effet, les trames orthogonales 
régulières ne permettent pas une 
pleine expression artistique. Les 
trames désirées doivent être 
créées auparavant. Chaque trame 
doit occuper toute la surface de 
l'écran et doit être placée à 
l'adresse # 5000 (début de 
l'écran virtuel) avant l'utilisation. 
Le contour de l'insertion doit être 
réalisé comme précédemment, et 
la routine est appelée par CALL 
#7028,3. 
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La deuxième utilisation est l'in¬ 
crustation en médaillon (comme 
pour les photos de groupe avec, 
en médaillon, les portraits des 
personnes dont on parle). 

Il est évident que le dessin à 
extraire de l'écran virtuel doit 
occuper la même place à l'écran 
que le médaillon. Ceci n'est pas 
toujours possible. Dans ce cas, il 
faut modifier le pointeur de 
l'écran virtuel du module 
PREP(aration) stocké en BAS et 
HAUT, en diminuant ou en aug¬ 
mentant, selon le cas, l'adresse 
départ (#5000) du nombre 
d'adresses qui séparent l'image 
du médaillon sur l'écran com¬ 
mun. 

En pratique, ramenez le curseur 
au centre du médaillon et relevez 
ses coordonnées : 

Xi =PEEK(#219), 

Yi =PEEK( # 21 A). 

Affichez l'écran virtuel. Ramenez 
le curseur au centre de la partie 
de l'image que vous souhaitez 
insérer. Relevez ses coordonnées 
Xi =PEEK(#219), 

Yi = PEEK( # 21 A). 

Calculez le nombre d'adresses 
qui séparent les deux points : 

N = (Yi - Y) x40 + INT(Xi — X)/6. 

Additionnez les résultats à 
l'adresse $5000 en tenant 
compte de son signe. La valeur 
obtenue est la nouvelle adresse 
(fictive) du début de l'écran vir¬ 
tuel. Attention ! cet écran sera 
toujours placé à, partir de 
#5000 ! 

Après avoir de nouveau affiché 
l'image avec médaillon, faites 
appel à la suite de la routine par 
CALL # 720E (PATCH). 

Le principe de l'incrustation dans 
un contour tout à fait quelconque 
est strictement le même. 

Pour faire coïncider l'image avec 
contour, on procède comme pour 
le médaillon, mais pour mieux 
visualiser le découpage, on 
complète la procédure selon la 
méthode suivante : 

— affichez l'image qui reçoit l'in¬ 
crustation, 

— ramenez le curseur dans le 
centre de l'incrustation, 

— relevez les coordonnées de 
l'incrustation, 

— lancez les options 2 et 0, 


— affichez l'écran virtuel conte¬ 
nant l'image à incruster, 

— ramenez le curseur au centre 
de celle-ci et relevez les coordon¬ 
nées, 

— utilisez ce petit programme en 
Basic (ou la routine correspon¬ 
dante) pour dessiner le contour à 
l'adresse voulue : 

10 :l = 0 

20 CURSET (Xi -X) + PEEK 
( # 7600),(Yi - Y) + PEEK 
(#7700 + 1) 

30 CURSET (Xi -X) + PEEK 
( # 7800 + l),(Yi - Y) + PEEK 


(#7700 + 1) 

40 1 = 1 +1:1F PEEK( # 7600) + I) 
= # FF THEN END 
50 GOTO 20 

Le contour apparaîtra sur l'écran, 
et vous pourrez mieux vous ren¬ 
dre compte de l'effet. S'il vous 
satisfait, modifiez comme pour le 
médaillon l'adresse du début de 
l’écran virtuel et lancez la suite de 
la routine. Dans le cas contraire, 
recommencez. 

La routine facultative concerne 
les "POCHAGES''. Au fur et à 
mesure des remplissages ou col¬ 
lages, la routine sauvegarde auto¬ 
matiquement les tables de coor¬ 
données des contours. 

Toutes les tables sont dimension- 
nées pour 256 octets (512 
points). Dans les cas courants, 
ceci est suffisant. Si vous devez 
traiter un contour très important, 
vous devrez modifier la routine en 
conséquence ; les tables des 


contours sont sauvegardées par 
paquets de trois blocs de 256 
octets (trois coordonnées pour 
deux points) à partir de l'adresse 
#7900. On peut réaliser dix 
contours d'affilée, après quoi la 
routine remet le compteur à zéro. 
A partir de ce moment, vous per¬ 
drez un à un les anciens contours 
au profit des nouveaux. Un PING 
vous avertit que les tableaux sont 
pleins. Les contours sont numé¬ 
rotés de 0 à 9, le 9 étant le der¬ 
nier réalisé et le 0 le premier. 
Les pochages sont réalisés de 


façon sélective en donnant le 
numéro de contour que l'on 
désire effacer : CALL # 73DC, 
N °. Ne jamais effacer un contour 
avant que toutes les surfaces 
adjacentes extérieures au con¬ 
tour aient déjà été trouvées (ou 
incrustées). La délimitation des 
emprises étant perdue après l'ef¬ 
facement du contour, toute ten¬ 
tative de traçage d'une zone adja¬ 
cente provoquera un beau 
gâchis ! Les pochages n'agissent 
pas sur les parties horizontales 
des contours. 

L'encadré 2 contient un exemple 
de pochage et le listing du pro¬ 
gramme en Basic correspondant. 
Ils vous permettront de tester 
l'exactitude de la saisie. 

La routine est faite pour ORIC-1. 
Les adresses à modifier pour 
ATMOS sont données dans le 
commentaire du listing. 

Bons ''PATCHWORKS'' à tout le 
monde !... 
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10 A=#7000:F=#7A5B:L=100:REPEAT:FOR A=A TO A+15 :READ C* 

20 K=VAL< , #**C*>:S=S+K+65536*(S+K>65535):IF A<=F THEN POKE A.K 
% 30 NEXT:READ D*:IF S=VAL<***+D$) THEN L=L+5:UNT]L A>F:END 
AO PING:PRINT*Erreur liane* :L 

100 DATA 50,41.54.43.48.57.4F,52,4B.53.20.52.31.20.44.2E.043B 
105 DATA 20.56,61.73,69,6C.6A.65,76.69,63,20.31,37.20.6D.0980 
110 DATA 61.72,73.20,31.39.38.36.20,OA,D8.E0.04.90.11.A9.0EEE 
115 DATA F9,A0,CD.20,ED,CB, 20,F8.C5.38,E9.30,AA,18,90.EB. 1897 
120 DATA 8E,E9.6F,20,41,F1,AD,E1,02,49,FF,8D,E0,6F,AE,19.214A 
:> 125 DATA 02.8E,E1,6F.8E,E3,6F,AC. 1A,02,8C,E2.6F.8C.E4,6F,298E 
130 DATA AD,FO,6F,C9.0A.90,1F,A9,0A,8D,F0.6F.A9,95,8D,F2,3278 
:j 135 DATA 6F.A9.96.8D.F4.6F.A9.97.8D.F6,6F.A9.00.3D.F1. 6F.3BDE 
140 DATA 8D,F3,6F.8D.Fj,6F,A9,00,8D.E5,6F.BD.E3.6F,A0.09,44D5 
145 DATA 99,DF,02,SB,D0,FA, AE,E3,6F,8E,E1,02.AC.E4.6F.8C.4E9D 
150 DATA E3,02.20.41.Fl.AD.El,02,CD.EO.6F,FO,1C.CE.E3.6F.57AC 
155 DATA AE,E3.6F,EO,OB.FO. 12.A9.00,18.90,D2.68.68.4C.E8.5FCC 
160 DATA 71.AD.08.02.C9.B4.FO,F4. 60.EE, E3.6F.A9.00.8D.E7,6906 
165 DATA 6F,8D,E6.6F.AC.E8,6F,AD.E3.6F.99,00,77.AD,E4.6F.7269 
170 DATA 99,00.78.20,Cl.70,A9,00,AO,09,99,DF.02,88.DO.FA,79E« 

. 175 DATA AE.E3,6F,8E.E1,02,AC,E4,6F,BC,E3.02,A9.02.8D.E5,82E7 
t 180 DATA 02.2O.2D.F0,AC.E4.6F.C0,0O,F0,3E,AE,E3,6F,8E,El,8B82 
' 185 DATA 02,AC,E4,6F,88,8C,E3.02,20,05,72.AE.E1.02,EC,EO,9370 
î 190 DATA 6F.F0.21.A9,01,CD,£7,6F,F0,1F,8D,E7.6F,AC,E5,6F,9CAF 
g 195 DATA AD.E3.6F.99.00.75.AE.E4.6F, CA,8A.99,C0,76,EE,E5.A5F3 
\ 200 DATA 6F, 18,90,05,A9,00,8D.E7,6F,AC,E4,6F.CO,C7,F0.3B,AE4C 
[ 205 DATA C8,8C.E3,02,AE,E3,6F.BE.E1.02.20,05.72,AD,El.02.B&1D 
\ 210 DATA CD,E0.6F.F0,2r,A9,01,CD.E6,6F,F0,lF.8D,E6,6F.AC.EFB3 
i 215 DATA E5.6F,AD,E3.6F,99,00,75,AE,E4,6F,E8,8A,99,00,76,C896 
t 220 DATA EE,E5,6F.18,90,05,A9,00,BD,E6,6F,EE.E3,6F.AE,E3,D1E1 
' 225 DATA 6F.E0.F0.F0,17.8E,E1,02,AC,E4,6F,8C.E3,02,20,05.DA2D 
} 230 DATA 72,AE,El,02,EC,EO,6F,FO,03,4C,E3,70,AC,ES,6F,CE,E3CE 
] 235 DATA E3.6F.AD,E3.6F.99,00.79,EE.E8,6F,AD.E5,6F.C9.00.ED40 
{ 240 DATA F0,2A.CE.E5,6F,AC,E3,6F,B9,00,75,8D,E3,6F,8D,E1,F6F7 
] 245 DATA 02.B9.00.76.BD,E4,6F,8D,E3,02,20,05.72,AE,E1,02,FDA2 
i 250 DATA EC,EQ.6F.F0,C7.4C.8E.70,20,9B,FA,60.AC,E8,6F,A9,079F 
{ 255 DATA FF,99.00,77,20.7B,73.AD.E9.6F,C9,00.F0,EA,C9,Q3.1030 
A 260 DATA 90,0F.18,90,09,A9,00,8D,E2,02,20.41,F1,60,4C,CC,1664 

► 265 DATA 72,C9,01,FO,OC,A2,02.3E,97,72,E8,8E.9F,72.18,90.1E06 
) 270 DATA 09,A2.03,8E,97,72,CA,8E,9F,72,AD.EA.6F,18.6D,EB.262A 

► 275 DATA 6F.8D.EE.6F,AD.EC.6F.18.6D,ED,6F,8D.EF.6F.20.44.2EBB 
280 DATA 72,18,90,10,AO,09,A9.00,99, DF,02,88. DO,FA, AO.00.35A3 
285 DATA 8C,E9,6F,60,20,C1,70,B9,00,77,C9,FF.F0.8A.8D.E1,3F18 
290 DATA 6F.AA.B9.00,78,9D.E2.6F,8A,CD.EF.6F,F0,09,90,07.4785 
295 DATA 38,ED,EF.6F,18.90,F2.CD.EC.6F.FO.22.90.20.AD,E2,51 IB 
300 DATA 6F.CD.EE.6F,F0.09,90.07,38,ED.EE.6F.18.90,F2,CD,5A2D 
305 DATA EA,6F,F0.0A.90.08.A9.03.8D.E5,02,18.90.05.A9.02.6090 
310 DATA 8D.E5.02,AD,E1.6F.8D,E1,02,AD,E2,6F,8D.E3,02.20.6901 
315 DATA 2D,F0,AE,E9,6F,AC,E9,6F,FE,00,77,BD,00,77,DD,00,71AE 
320 DATA 79.90.91,EE.E9.6F,C8.D0,3B,4C,E9.71.A9,20.8D.E0,7B8C 
325 DATA 6F.4A,8D.E1,6F.4A.8D,E2,6F.4A.8D,E3.6F.4A,9D,E4.842E 
330 DATA 6F,4A.8D.E5,6F.A9.00.8D,E9,6F,A9,00.8D.E6,6F.A9,8C8A 
335 DATA 50,8D.E7.6F,20.44,72,20,Cl,70,AC,E9.6F.B9,00,77.9418 
340 DATA C9,FF,FO,C5,8D,E1,02,AA,B9,D0.78,A8,8D.E3,02,A9,9DA3 
345 DATA 03.8D.E5.02.C0.00.F0.1A,AD.E6,6F,85.00,AD,E7.6F.A56E 
350 DATA 85.01,A5,00.18,69,28.85,00.A5.01.69,00,85,01.88.A9E4 
355 DATA DO,FO,3A,C9.00,FO,OB.38,E9.06.C9.06.90,04,C8.18.B15C 
360 DATA 90,Fl,SD,EB,6F,98,18,65,00,85,00,A5,31,69,00,85,E7EF 
365 DATA 01.A0,00.Bl,00,AE,E8.6F.3D,E0,6F,F0.0i,C8.8C.E5.BFFC 
370 DATA 02,20,2D,FO,AE,E9.6F,AC,E9,6F,FE,00,77,BD,00,77,C7EE 
375 DATA DD.OO.79.90,03,EE.E9,6F,4C,F7.72,AD.F1.6F,85,02,0066 
380 DATA AD,F2.6F,85.03,AD.F3.6F,85,D4,AD.F4.6F,85,05.AD.D8DB 
385 DATA F5,6F,85,06.AD,F6.6F.85,07,AO,00,B9.00,77,38.E9.F059 
390 DATA 01,91,02,B9,00,78,91,04,B9,00,79,18,69,01,91,06,E4FE 
395 DATA C8,D0.E8.AD.F2.6F,3E.E9,03,SD,F2.6F.AD.FA,6F 1 39.EEE6 


400 DATA E9,03.8D,F4.6F,AD,F6,6f.38,E9,03,8D,F6,6F,CE,FO.F8A8 
405 DATA 6F,D0.08,20.85,FA,A9,OA,8D,F0.6F,60,20.0A.DB.EO.G06F 
410 DATA OA,90.11,A9,F9,AO,CD,20,ED,CB.20,F8,C5,38,E9,30.092F 
415 DATA AA, 18.90.EB.E8,A9.FD,18,69.03,CA,D0.FA,8D.E9,6F.12F7 
420 DATA A9,95.38.ED.E9.6F,85,03,A9.96,38,ED,E9,6F,85,05.1B80 
425 DATA A9.97.38,ED,E9,6F,85,07,A9,00,85,02,85.04.85,06.2200 
430 DATA 20,C1.70,AO,00,8C.EB,6F,A9,00.8D.E5,02.B1,02,C9.297A 
435 DATA FE,F0.24,8D,E1,02,B1,04.8D.E3.02.20,2B,FO.AC.E8,31F4 
440 DATA 6F.BI,06.8D.E1,02.E1.04.8D,E3,02,20,2D.FO.EE.E8.39C4 
445 DATA oF,AC.EB.6F,18,90.D6.4C.E8,71,6C,55,00,00,00.00.401A 
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99 

00 

77 


STR 

COI JX; Y 

fin table. 

72R0 

BD 

ES 

02 


STR 

PRRV 

des tests. 

71F4 

20 

7B 

73 


JSR 

DECL 

S/R Tables 

72R3 

RD 

El 

6F 


LDR 

X 

Chargement 

71F7 

RD 

E9 

6F 


LDR 

TYPE 

Quel le est 

72R6 

SD 

El 

02 


STR 

PRRX 

des coor¬ 

71F0 

C9 

00 



CMP 

#S00 

l'oPtion' 

72R9 

RD 

E2 

6F 


LDR 

Y 

données 

71FC 

F0 

EH 



BEQ 

FIN2 

Remplir? 

72RC 

8D 

E3 

02 


STR 

PRRY 

et aPPél 

71FE 

C9 

03 



crip 

#$03 

Trimé ort. 

72RF 

20 

2D 

F0 


JSR 

CURS 

CURSET-ROM 

7200 

90 

0F 



BCC 

DRTH 

générée?. 

72B2 

RE 

E9 

6F 


LDX 

TYPE 

Incréments 

7202 

18 




CLC 


OU routine 

72B3 

RC 

E9 

6F 


LDY 

TYPE 

X dé U 

7203 

90 

09 



BCC 

PRTC 

PRTCHWORK? 









7203 

R9 

00 


SR 

LDR 

#$00 

Rnnule 









7207 

BD 

E2 

02 


STR 

FflRX+1 

PRRRMS + 2 

72B8 

FE 

00 

77 


INC 

COHX.X 

ligne en 

720R 

20 

41 

Fl 


JSR 

PINT 

ROM-POINT 

72BB 

BD 

00 

77 


LDH 

conx.x 

cours.test 

7200 

60 




RTS 


hetùUP. 

72BE 

DD 

00 

79 


CMP 

CONZ.X 

fin ligne? 

720E 

4C 

CC 

72 

PHTC 

JMP 

PREP 

Relais. 

72C1 

90 

91 



BCC 

DEPO 

Sinon rec. 

7211 

C9 

01 


DRTH 

CMP 

#$01 

DPtlon' 

72C3 

EE 

E9 

6F 


INC 

TYPE 

OUI.incre. 

7213 

F0 

0C 



BEQ 

RIEN 

écriture 

72C6 

C8 




INY 


Ptr. U9ne 

7215 

R2 

02 



LDX 

#S02 

inversée. 

72C7 

DO 

8B 



BNE 

DEPO 

Recommence 

7217 

8E 

97 

72 


STX 

MDDY+B 

(trait* de 

72C9 

4C 

ES 

71 

FIN3 

JMP 

FIN2 

Relais fin 

7210 

ES 




INX 


coUleUr dU 

72CC 

R9 

20 


PREP 

LDR 

#$20 

Préparati¬ 

7218 

8E 

9F 

72 


STX 

INVR+1 

fond d'o- 

72CE 

BD 

E0 

6F 


STR 

P 

on dé la 

721E 

18 




CLC 


ri9ine>/ou 

72D1 

4R 




LSR 


table rnd 

721F 

90 

09 



BCC 

CRLT 

écriture 

72D2 

8D 

El 

6F 


STR 

X 

pour 1'in¬ 

7221 

R2 

03 


RIEN 

LDX 

#$03 

normale. 

72D3 

4R 




LSR 


terpréta¬ 

7223 

BE 

97 

72 


STX 

MODY+8 

(traits de 

72D6 

8D 

E2 

6F 


STR 

Y 

tion dé 









72D9 

4fl 




LSR 


l 'écran 









72DR 

8D 

E3 

6F 


STR 

XI 

Virtuel 

7226 

CR 




DEX 


Couleur 

72DD 

4fl 




LSR 


contenant 

7227 

8E 

9F 

72 


STX 

INVR+1 

d'encre). 

72DE 

8D 

E4 

6F 


STR 

Y1 

rimage a 

7220 

RD 

EH 

6F 

COLT 

LDR 

R 

calcul de 

72E1 

4R 




LSR 


decOUPer 

722D 

18 




CLC 


la hauteur 

72E2 

BD 

ES 

6F 


STR 

NMBR 

et insérer 

722E 

6D 

EB 

6F 


RDC 

B 

et de la 

72E3 

R9 

00 



LDR 

ff$00 

a l'écran 

7231 

8D 

EE 

6F 


STR 

E 

largeur du 

72E7 

8D 

E9 

6F 


STR 

TYPE 

affiche, 

7234 

RD 

EC 

6F 


LDR 

C 

motif de 

72ER 

H9 

□0 



LDR 

#$00 

dan* Un 

7237 

18 




CLC 


la trame. 

72EC 

BD 

ES 

6F 


STR 

BAS 

contour 

7238 

6D 

ED 

6F 


RDC 

D 

stockage 

72EF 

R9 

30 



LDR 

#$30 

lrregul1er 

723B 

ED 

EF 

6F 


STR 

F 

du resUlt. 

72F1 

8D 

E7 

6F 


STR 

HRUT 

Ecran vir- 

723E 

20 

44 

72 


JSR 

NULE 

RPPél S/R 

72F4 

20 

44 

72 


JSR 

NULE 

tUél=$3000 

7241 

18 




CLC 


Saut vers 

72F 7 

20 

Cl 

70 

DEPT 

JSR 

STOP 

RPPel S/R 

7242 

90 

10 



BCC 

DEPO 

suite. 

72FR 

RC 

E9 

6F 


LDY 

TYPE 

Leetuhé 

7244 

R0 

09 


NULE 

LDY 

#$09 

Nettoyage 

72FD 

89 

00 

77 


LDR 

CONX.Y 

dëS coor¬ 

7246 

R9 

00 



LDR 

#$00 

PRRRMS-l+Y 

7300 

C9 

FF 



CMP 

#$FF 

données dU 



































































































7302 

F0 

C5 



BEQ 

FIN3 

contour, 

7304 

3D 

El 

02 


STR 

PRRX 

test fin' 

7307 

RR 




TRX 


conteur, 

7308 

B9 

00 

78 


LDR 

CONY,Y 

chargement 

730B 

R8 




TRY 


dèâ PRRHMS 

730C 

8D 

E3 

02 


STR 

FRRY 


730F 

R9 

03 



LDR 

#503 


7311 

8D 

E5 

02 


STR 

PRRV 


7314 

C0 

00 



CPY 

#900 

Tést Pour 

7316 

F0 

IR 



BEQ 

RDRX 

ligne Y*0? 

7318 

RD 

E6 

6F 


LDR 

BRS 

Trânsfer 

731B 

83 

00 



STR 

.900 

Pointeur 

731D 

RD 

E7 

6F 


LDR 

HRUT 

écran vlr. 

7320 

83 

01 



STR 

.901 

en 0 Page. 

7322 

R3 

00 


RDRS 

LDR 

.900 

caieui de 

7324 

18 




CLC 


l'adressé 

7323 

69 

28 



RDC 

#$28 

dé l'écran 

7327 

33 

00 



STR 

.$00 

virtuel 

7329 

H3 

01 



LDR 

.901 

comportant 

732B 

69 

00 



RDC 

#300 

lé PÜlnt 

7320 

83 

01 



STR 

.901 

X.Y corre¬ 

732F 

88 




DEY 


spondant 1 

7330 

D0 

F0 



BUE 

RDRS 

R=>Y*40+ 

7332 

8R 



RDRX 

TXR 


INTCX/6J 

7333 

C9 

00 



cnp 

#900 

Le reste 

7335 

F0 

0B 



BEQ 

TRVE 

dé U 

7337 

33 




SEC 


division 

7338 

E9 

06 



SBC 

#$06 

sera 

733R 

C9 

06 



cnp 

#$06 

sauvegarde 

733C 

90 

04 



pcc 

TRVE 

et utilise 

733E 

C8 




INY 


Pour lé 

733F 

18 




CLC 


calcul 

7340 

90 

Fl 



BCC 

RDRX+1 

du bit 

7342 

BD 

ES 

6F 

TRVE 

STR 

LIGN 

Corres¬ 

7343 

98 




TYR 


pondant au 

7346 

18 




CLC 


Point X, Y. 

7347 

63 

00 



RDC 

.$00 


7349 

83 

00 



STR 

.500 


734B 

R3 

01 



LDR 

.$01 


734D 

69 

00 



RDC 

#900 


734F 

83 

01 



STR 

.$01 


7351 

R0 

00 


BIT 

LDY 

#$00 

Calcul de 

7353 

81 

00 



LDR 

#$00,Y 

la valeur 

7353 

RE 

E8 

6F 


LDX 

LIGN 

dU bit X.Y 

7358 

3D 

E0 

6F 


RND 

P,X 

(0=f6fid. 

735B 

F0 

01 



BEQ 

DESN 

i«encre 5 

735D 

C8 




INY 


resuit. en 

735E 

ec 

E3 

02 

DESN 

STY 

FRRV 

PRRRNS + 5 

7361 

20 

2D 

F0 


JSR 

CURS 

CURSET-ROM 

7364 

RE 

E9 

6F 


LDX 

TYPE 

incrément# 

7367 

RC 

E9 

6F 


LDY 

TYPE 

x dé la 

736R 

FE 

00 

77 


INC 

CONX-X 

ligné èn 

736D 

BD 

00 

77 


LDR 

CONX.X 

cours et 

7370 

DD 

00 

79 


CMP 

CDNZ.X 

testé fin 

7373 

90 

03 



BCC 

N0UL+3 

ligné. 

7375 

EE 

E9 

6F 

NOUL 

INC 

TYPE 

Nouvelle 

7378 

4C 

F7 

72 


JMP 

DEPT 

ligné. 

737B 

HD 

Fl 

6F 

DECL 

LDR 

PNTX 

Routine de 

737E 

85 

02 



STR 

.902 

sauvegarde 

7380 

RD 

F2 

6F 


LDR 

PNTX+1 

des coor¬ 

7383 

83 

03 



STH 

.903 

données 

7385 

RD 

F3 

6F 


LDR 

PNTY 

déi Points 

7388 

83 

04 



STR 

.904 

des 

738B 

RD 

F4 

6F 


LDR 

PNTY+1 

contours. 

738D 

85 

03 



STR 

.903 

Transfer 

738F 

RD 

F3 

6F 


LDR 

PNTZ 

des Poin¬ 

7392 

85 

06 



STR 

.906 

teurs en 

7394 

RD 

F6 

6F 


LDH 

PNTZ+1 

zéro Pag# 

7397 

85 

07 



STR 

.$07 


7399 

R0 

00 



LDY 

#$00 


739B 

89 

00 

77 

DEC1 

LDR 

CONX.Y 

sauvegarde 

739E 

38 




SEC 


des coor¬ 

739F 

E9 

01 



SBC 

#901 

données 

73R1 

91 

02 



STR 

#902.Y 

X9, Y9-d, 

73R3 

B9 

00 

78 


LDR 

CONY.Y 

Xd dans lé 

73R6 

91 

04 



STR 

#904.Y 

tableau 

73R8 

89 

00 

79 


LDR 

CONZ.Y 

courant. 

73RB 

18 




CLC 



73HC 

69 

01 



RDC 

#501 



73RE 

91 

06 

STR 

*906.Y 


73B0 

C8 


INY 



73B1 

D0 

E3 

BNE 

DEC1 


73B3 

RD 

F2 6F 

LDH 

PNTX+1 

Misé a 

73B6 

38 


SEC 


Jour des 

73B7 

E9 

03 

SBC 

#903 

Pointeur» 

73ES 

8D 

F2 6F 

STR 

PNTX+1 

a chaque 

73BC 

RD 

F4 6F 

LDR 

PNTY+1 

Passage. 

73BF 

38 


SEC 



73C0 

E9 

03 

SBC 

#503 


73C2 

SD 

F4 6F 

STR 

PNTY+1 


73C3 

RD 

F6 6F 

LDR 

PNTZ+1 


73C8 

38 


SEC 



73C9 

E9 

03 

SEC 

#503 


73CB 

8D 

F6 6F 

STR 

PNTZ+1 


73CE 

CE 

F0 6F 

DEC 

CMPT 


73D1 

D0 

08 

BNE 

FIN4 


73D3 

20 

83 FR 

JSR 

PING 

RON-PING 

73D6 

R9 

0R 

LDR 

#$0H 

ComPteur 

73D8 

8D 

F0 6F 

STR 

CMPT 

recharge. 

73DB 

60 


FIN4 RTS 


Retour. 

73DC 

20 

0R D8 

POCH JSR 

RECX 

Recueil du 

73DF 

E0 

0R 

CPX 

#$0R 

numéro du 

73E1 

90 

11 

BCC 

P0C1 

contour 

73E3 

R9 

F9 

LDR 

#$F9 

'a effacer 

73E3 

R0 

CD 

LDY 

#$CD 


73E7 

20 

ED CB 

JSR 

REDO 


73EH 

20 

F8 C3 

JSR 

RECR 


73ED 

38 


SEC 



73EE 

E9 

30 

SEC 

#930 


73F0 

RR 


TRX 



73F1 

18 


CLC 



73F2 

90 

EB 

BCC 

POCH+3 


73F4 

E3 


POCI INX 



73F5 

R9 

FD 

LDR 

#$FD 


73F7 

13 


RDDC CLC 



73F 8 

69 

03 

RDC 

#$03 

Mise a 

73FR 

CR 


DEX 


Jour déâ 

73FB 

D0 

FR 

BNE 

RDDC 

Pointeurs 

73FD 

8D 

E9 6F 

STR 

TYPE 

dès table» 

7400 

R9 

93 

LDH 

#593 

en fonc¬ 

7402 

33 


SEC 


tion du 

7403 

ED 

E9 6F 

SBC 

TYPE 

numéro du 

7406 

83 

03 

STR 

.$03 

contour. 

7408 

R9 

96 

LDR 

#996 


740R 

38 


SEC 



740B 

ED 

E9 6F 

SBC 

TYPE 


740E 

35 

03 

STR 

.$03 


7410 

R9 

97 

LDR 

#597 


7412 

38 


SEC 



7413 

ED 

E9 6F 

SBC 

TYPE 


7416 

85 

07 

STR 

.507 


7418 

R9 

00 

LDH 

#500 


741R 

85 

02 

STR 

.902 


741C 

85 

04 

STR 

.504 


741E 

85 

06 

STR 

.$06 


7420 

20 

Cl 70 

JSR 

STOP 


7423 

R0 

00 

LDY 

#500 

Première 

7425 

8C 

E3 6F 

STY 

LIGN 

ligné. 

7428 

R9 

00 

LDR 

#500 

COuleUr 

742R 

8D 

E5 02 

STR 

PRRV 

fond. 

742D 

B1 

02 

EFFC LDR 

#502.Y 

Fin table? 

742F 

C9 

FE 

CNF 

#$FE 


7431 

F0 

24 

BEQ 

FINS 

Si oui,fin 

7433 

8D 

El 02 

STR 

PRRX 

Sinon X,Y> 

7436 

B1 

04 

LDR 

#$04,Y 

PRRRMS+1 

7433 

8D 

E3 02 

STR 

PRRY 

et +3 

743B 

20 

2D F0 

JSR 

CURS 

ROM-CURSET 

743E 

HC 

E8 6F 

LDY 

LIGN 

Réch. ind. 

7441 

El 

06 

LDR 

#506,Y 

Point dè 

7443 

8D 

El 02 

STR 

PRRX 

droite dè 

7446 

B1 

04 

LDR 

#$04,Y 

la meme 

7448 

8D 

E3 02 

STR 

FRRY 

ligné. 

744B 

20 

2D F0 

JSR 

CURS 

ROM-CURSET 

744E 

EE 

E8 6F 

INC 

LIGN 

Nouvelie 

7431 

RC 

ES 6F 

LDY 

LIGN 

l19ne. 

7454 

18 


CLC 



7433 

90 

D6 

BCC 

EFFC 

Rcdmmencé. 

7457 

4C 

E8 71 

FINS JMP 

FIN2 

Pelais fin 




END 
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CAMEMBERUS OULGARIS 



100 

110 

120 

130 

140 

150 

160 

170 


HU1EMW6FFF'TRRMES-DEMOHSTRRTION 
H1RES 1 R=0 'INEVITABLE CAMEMBERT 
CORSET119,99,3 > CIRCLE80 ,1 
=F0RI=1T03 

> CURSET119,99,1 

> R=F)+PI/20*I 

• DRRW79#COS<R), 79#5IN< R), 1 
•NEXTI>0=0 


130 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 


: FQRI = 1TQS 

' O=O+PI/'20*I+PI/-40 . 

1 CORSET113+50*COS(0 ),99+50*SIN< 0 ), 3 
RERD A,B,C,D 
POKE#7F0R,R 
POKE#7F0B,B 
PQKE#7F0C,C 
POKE#7F0D,D 
RERD X 


> CRLL#70ZB,X 

> NEXTI 

290 DRTR ZjZjZj 2,2 
300 DATA 0,0,0,0,0 
310 DRTR 1,1,1,1,1 
320 DRTR 0,2,2,2,2 
330 DRTR 1,4,1,6,2 
340 DRTR 4,4,4,4,1 
350 DRTR 2,2,0,2,2 
360 DRTR 2,4,1,5,1 
370 DRTR 2,4,1,5,2 
330 DIfIRÏC 40> 

390 R5="CRMEMBER03 VULGRRIS" 
400 CORSET50,5,3 
410 > F0RI=1TQLEN( R $) 

420 > R=flSC(MIDÏÇ flî,1,1)) 

430 = CHRRfl,0,1> C0RM0V7,0,3 
440 -NEXTI 
450 END 


v'_\> 

N' 




100 

110 

120 

130 

140 

130 

160 

170 

180 

190 

200 

210 

220 

230 

240 

230 

260 

270 

280 

290 

300 

310 

320 

330 

340 

330 

360 

370 

380 

390 

400 

410 

420 

430 

440 


etre arrête 
Juste avant 
la fin! 

C fléché curseur\7> 


HIMEM#4FFF’HIRES'DII1X<3>,YC5>,RC5> 

POKE46FF0,11'Compteur contours a 0 
F0RI-1T03'BRRQUE aléatoire > Le remplissage 
X-RNDC 1 >*199' Y-RNDC 11*149' du fond doit 
IFX<50THENX=50' 

IFX>190THENX«190' 

IFY<50THENY=30' 

IFY>150THENY«130' 

XC I >»IHTCX><YC I >=■ INTC Y1 • CURSETXC I), YC I 1,3 
R-RNDC 1 >*C 180-X )■Rl-R/C 130-X>XC 140-Y> 
IFRKRTHENR-Rl 
RC I >= I HTC R >-30*C R< 30 > 

IFY+RC I »1990RY-RC I X0THEN190 
IFX+RCI »2390RX-RC I X0THEN130 
CIRCLERC I), 1 i CURSETXC I >, YC I >, 1 
R-RNDC 1 >« 180-X > • B-PNDC 1 >*C 140-Y > 

R-1 HTC R >-30XC R< 30 > > B-1 HTC B >-30*C B< 30 > 
IFX+2*R>239ORY+2*B>199THEN230 
IFX-RC 0ORY-BC 0THEN230 

DRRWfi,B,1'DRRUR,-B,1 'DRRW-R--B,1'DRRW-R,B,1 


■NEXTI 

■F0RI=1T03 

■ P-POINTCXC I >—1,YC I >—1 ) 

• IFP< >0THENXC I >«XC I >—1 • YC I >-YC I >-i ■ COTO320 

■ RERD R,B.C,D,OP 

■ P0KE46FER.fi■PQKE46FEB,B•P0KE46FEC.C >P0KE#6FED,D 

• CURSETXC I )-l,YC I >-1,3 

■ CRLL47028,OP 

> rjp-C OP-2 >-C OP-1 HOP 1 IF OP-0THENQP-3 

■ P-POINTC XC I >+RC I >72, YC I >+RC I >74 > 

■ I FP< >0THENXC I >«XC I >+1 ■ YC I >=YC I >+1 ■ COTO390 

■ CURSETXC I >+RC I >72, YC I >+RC I >74,3 ■ CRLL47028, OP 
■NEXTI'CURSET0,0,3'CRLL4702B,0 

■ FOR I-0TO9'CRLL#73DC,I>NEXTI•END 

DRTR 1,6,1,6,2,4,4,4,4,1,0,0,0,0,0,1,4,0,3.2,8,3,1,4,2 
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Le CASSE-BRIQUES n'est cer¬ 
tes pas un jeu original. Pour¬ 
tant, il a toujours ses adep¬ 
tes, et celui-ci est bien réa¬ 
lisé ; c'est la raison pour 
laquelle nous avons décidé 
de le publier dans nos colon¬ 
nes. 

EXPLICATIONS SUR 
LE JEU ET LE PROGRAMME 

Commençons par le jeu qui per¬ 
met aux utilisateurs de jouer seul 
ou à deux. Au début du jeu, un 
mur de briques seul apparaît et, 
au fur et à mesure que les briques 
sont détruites, la vitesse de la 
balle augmente. Si le joueur réus¬ 
sit à abattre ce mur, un autre 
apparaît, ainsi que deux petits 
murs y faisant obstacle. A ce 
niveau, la vitesse n'augmente 
pas. Ces deux murs représentent 
le premier niveau de jeu et si cette 
étape est franchie, le joueur 
recommence comme au début 
(sans petis murs), mais avec une 
vitesse beaucoup plus rapide. Le 
jeu comporte en tout quatre 
niveaux de vitesse et donc en 
tout huit murs à détruire. Entre 
chaque mur, le joueur retrouve 
ses cinq balles d'origine. 

La barre espace permet de geler 
le jeu (pour répondre au télé¬ 
phone par exemple I) et l'appui 
sur n'importe quelle autre touche 
relance l'animation. 

Pour ce qui est du programme, je 
ne m'étendrais pas sur celui en 
Basic qui n'est pas très compli¬ 
qué, mais sur celui écrit en 
Assembleur. J'ai fait une nomen¬ 
clature des différents sous- 
programmes et un organigramme 
du programme principal. Cela 
vous permettra, je l'espère, 
d'apaiser les colères de certains 
lecteurs qui réclament des expli¬ 
cations technique sur les progra- 
mes publiés (je ne les critique 
pas, mais ils devraient compren¬ 
dre que cela demande du travail 
et du temps que tout le monde 
n'a pas forcément !). 

Ah oui, j'oubliais... Bon amuse¬ 
ment ! 

MODIFICATIONS ORIC/ATMOS 
VERS ORIC-1 

Ajouter en ligne 5 : DOKE 9981, 
# FA21. 
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ASSEMBLEUR 


10 FORI=9585T010539 
15 READAS :POKE 1 , UAL ( " # i-A* 3 
20 NEXT 

25 DATAA0,19,A2,08,A9,13,90,D7,BF,CA,D0, 
FA,AD,28,25,18,69,28,90,03 

26 DATAEE,29,25,8D,78,25,88,00,E5,60,55, 
55,55,A2.43,A0,0A, 88,EA,EA 

27 DATAEA,EA,D0,F9,CA,D0,F4,60,A9,CF,8D, 
78,25, A3, BB,8D,79,25,20,71 

28 DATA25, A9, EF,8D,78,25,A9,BB,8D,79,25, 
20,71,25,60,A2,03,A0,16,AD 

29 DATA82, 1F,99,A0,BC,EE,C1,25,88,D0,F4, 
18,AD,04,25,69,28,80,C4,25 

30 DATACA,D0,E6.60,55,A2,03,A0,16,B9,A0, 
BC, 8D, 82,1F,EE,E2,25,88, D0 

31 DATAF4,18,AD,DF,25,69,28,8D,DF,25,CA, 
00,E6,60,55,55,55,55,55,55 

32 DA TA55,55,55,A2,00,BD,0E,26,9D,80,BB, 
E8,E0,28,D0,F5,60,10,4A,4F 

33 DATA55,45,55,52,20,31,20,20,20,20,42, 
41,4C,4C,45,53,3A, 20,79,79 

34 DATA79,79,79,20,20,20,53,43,4F,52,45, 
3A, 20, 30, 30,30,20,55,AD,C2 

35 DATA27,8D,46,26,AD,C3,27,8D,47,26,A3, 
10,8D,AE,BF,60,55,55,55,00 

36 DATA00,00,A9,0A,A2,00,EE, 4E,26,CD,4E, 
26,00,11,8E,4E.26.EE,4D,26 

37 DATACD,4D,26,D0,06,8E,4D, 26,EE,4C,26, 
A2,03,BD,4B,26,09, 30,9D,A3 

38 DATABB, CA,D0,F5,CE,93,25,60,AD,74,27, 
8D, 8C,26, AD,75,27,8D,8D,26 

39 DATAA9,10,8D,7D,BC,60,55,55,55,AD,BF, 
AD,C2,27,8D,92,26, AD,C3,27 

40 DATA8D,93,26,AD,C0,27,F0,23,C9,01,F0, 
11.A9,01,18,60,92,26,90,03 

41 DATAEE, 93, 26,8D,92,26,4C,C8,26,AD,92, 
26,38,E9,01,B0,03,CE,93,26 

42 DATA8D,92,26,AD,92,26,8D,74,27,AD,93, 
26,8D,75,27,60, 55,00,00,AD 

43 DATA74,27, 8D, E5,26,AD,75,27,8D,E6,26, 
AD,AD, BF,60,00,03,00,00,00 

44 DATA00,00,64,00,A0,08,B9,E8,26,99,E0, 
02,88, 10, F7, 20,00, FB,60,55 

45 DATAA9,20,A2,18,9D,BF,BF,CA,00,FA,A2, 
CB,4C,33,27,CB,AD,08,02,AE 

46 DATAI 0,27,C9,AC,D0,09,E0,Cl,F0,04,CA, 
4C,33,27,60,C9,BC,D0,08,E 0 

47 DATAD6,F0,04,E8,4C,33,27,4C,1C,29,8E, 
10,27,E8.E8.A0,05,8E,41,27 


DA TAB9,47,27,8D,C9,BF,CA,88,D0,F 3,60, 
,7A,7A,7A,20,55,01,01,A9 
DATA28,8D,73,27,AE,4E,27,F0,14.E0.02, 
,08,AC,4F,27,F0,08,4C,6F 
DATA27,AC,4F,27, F0.04.EE, 73,27,60, CE, 
,27,60,28,AD,BF,AC,4F,27 
DATAF0,10, AD, 73,27, 18,6D,74,27,90,03, 
,75,27,8D,74,27, 60,AD,74 
DATA27,38, ED, 73, 27, B0,03, CE,75,27,8D, 
,27,60,55,AD,C0,27,F0,09 
DATAC9,01,D0,06,A9,02,8D,C0,27,60,A9, 
,8D,C0,27,60,AD,Cl,27,F0 
DATA04,A3,00,F0,02,A3,01,80,C1,27,60, 
,01,AE,BF,AD,C0,27.8D,4E 
DATA27,AD,C1,27,8D,4F,27, AD,C2,27,8D, 
,27,AD,C3,27,80,75,27,20 
DATA50,27,20,76,27,20,D8, 26,C9,10,F0, 
,C9,78,00,09,EE,D7,26,20 
DATA4F,26, 20,7D, 26,20,Fl, 26,20,9C,27, 
,81,27,4C,58,28, AD,C2,27 
DATA8D,11,28,AD,C3,27,8D, 12,28,A9,10, 
,87,BF,AD,74,27,8D,C2,27 
DATA8D,28,28,AD,75,27,8D,C3,27,8D,29, 
,A9,79,8D,AE,BF,AD,C0,27 
DATA8D,4E,27,AD,Cl,27,80, 4F,27,A9,28, 
,73,27,EA.EA.EA,20,76,27 
DATA20,D8,26,C9,10,F0,03,4C,6E,28,20, 
,26,20,D8,26,C9,10,F0,03 
DATA20, F0, 28, AD, D7., 26, C9, 42, D0,05, A9, 
,8D,06,26,60,55,55,55,55 
DATA55,55,55,55,55,C9,78,D0,12,20,Fl, 
,20,7D,26,EE,07,26,20,4F 
DATA26,20,B1,27,4C,91,28,C9,7A,D0,19, 
,Fl,26,20,B1,27,20,B7,28 
DATA20,94,26,20,D8,26,C9,10,F0,03,20, 
,27,4C,58,28,C9,20, D0,08 
DATAA9,00,8D,D6,26,4C,91,28,20,F 1,26, 
,B1,27,4C,91,28,55,A0,00 
DATAAE,C0,27,AD,10,27,38,ED,C2,27,C9, 
,F0,19,C9,27,F0,0C,E0,02 
DATAF0.02,A0.01,8C,C0,27,4C,E0,28,E0, 

,F0,02,A0,02,8C, C0,27,60 
DATA55,55,55,55,55,55,55,55,55,55,55, 

,55,55,55,AE,C0,27,F0,13 
DATAC9,78,D0,09,EE,D7,26,20,4F,26,20, 

,26,20,Fl,26,20,9C,27,60 
DATA55,55,55,55,55,A3,20,A2,00,90,81, 

,E8,E0,28,00,F8,60,55,C9 
DATA84,D0,0B,AD,08,02,C9,84,F0,F9,C9, 

,F0,F5,60, 
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BASIC 


5 CLS:PPPER0:INK5:POKE«26P, 10:CPLL«290E 
10 GOSUB160 

15 PRINTS2,9 ;"N0f1BRE DE JOUEURS : " 

20 PRINT@14,12 ;1 JOUEUR CTapez 13" :PRI 
NT014,15;"-2JOUEURS CTapez 23" 

21 PRINT02,21 ; "-Ut i l i sez les fléchés po 
ur déplacer" 

22 PR INT@2,22 ; "la raquette de droite a 
gauche." 

23 PRINT@2,25 ;"-La touche espace immobi 
lise le Jeu.":PRINT@2,2 ; : PRINT 

25 GETP$:IFP$<>"1"PNDP$<>"2"THEN20 

30 N=UPLCP$J 

35 GOSUB500 

40 IFN=1THEN150 

45 GOSUB300 

50 IFP5+B5=0THEN120 

55 IFP=1PNDB5=0THEN75 

60 IFB=1PNDP5=0THEN75 

65 IFP=1THENB=1:P=0:GOTO75 

70 B=0:P=1 

75 GOSUB400 

80 D0KE«27C2,INTCRNDC1]*203+49050=POKE« 
26D6,"1 

85 POKE«27C0,INTCRNDC13*33:P0KE«27C1,0 
90 CPLL«2701 

95 CPLL«2711 :UPITW :CPLL«27C4:CPLL«2592 : 
IFPEEKC«26D63=1THEN95ELSECPLL«2637 

100 1 FPEEK C826D73 = 66THENGOSUB200 :GOTO80 

101 I FP= 1PNDP5=0THENGOSUB300 

102 IFB=1PNDB5=0THENGOSUB300 
105 IFA—1PNDP5<> 0THENP5=P5-1 
110 IFB=1PNDB5 <>0THENB5=B5- 1 
115 UJPI T50 :GOTO4-0 

120 UPIT150:CLS:PPPER0=P0KE«26P,10:INK1 
:CPLL«F8D0 

125 CPLL«290E: GOSUB160 :GOSUB170 
130 PRINT@1,15 JCHR$C1313 ;"UOULEZ UOUS R 
EJOUER CO/N3?" 

135 GETP$:IFP$="0"THENRUN 
140 JFP$="N"THENPOKE«26P,3:hIRES=TEXT :£ 
ND 

145 GOTÜ130 

150 IFB5=0THENGOSUB300 :GOTO120 
155 P=1:B=0:GOSUB300:GGT075 
160 PRINT01,3;CHR$C1293:PR]NTCHR$C12931 
CHRSC43 

165 PRINTël3,3;CHR$C273 ;"JCPSSE-BRIQUES 
":PR1NTCHR$(43 :RETURN 
170 6* = " JOUEUR 1 : JOUEUR 

2 : 

175 FORI = 1 TO40 :POKE47999 + 1 , PSCCniD*CP$, 
1,133:NEXT 

180 FORI = 1T03 :POKE48012+1, PCI 3 :POKE4803 
4 + 1,B(I3 :NEXT:RETURN 
200 IFPEEKC483733 = 16THENn=20ELSEn= 1 6 
205 1FP=1THEN220 

210 IF(1= 1 6PNDB6> 1 THENB6=B6-1 :U=B6 
215 B5=5:B8=n:B9=67 :GOTO230 


220 IFIT 1 6PNDP6> 1 3 HENnP-PO- i :w -fit; 

225 (95=5 :P8=H :A9-67 

230 GOSUB250 :GOSlJB600 :P0KE«26D7,0 :POKEV' 
619,67:RETURN 
250 IFR=1THENn=B8ELSEn=B8 
255 FORI=12TO]4:PLOTI,8,H:PLOT1+13,8,0: 
NEXT 

260 FOR]=0TO4 :POKE48021 + 1, 121 :NEXT :RETU 
RN 

300 F0RI=1T03:IFR=1THEN310 
305 BCI3=PEEKC48035+I3 :NEXTI :GOTO320 
310 PC I3=PEEKC48035+13 :NEXTI 
315 P0KE9698,«40 : P7=PEEK(«26D73:P9=PEEK 
C96193 :G0T0325 

320 P0KE9698,«P4:B7=PEEKC«26D73:B9=PEEK 
C 9613 3 

325 P0KE9695,«28 : CPLLW25DP:RETURN 
400 PRINTCHR$ C 4 3:PRINT@15,15;CHR*C2731" 
J JOUEUR " 

405 J FP= 1THEN420 

410 PR1NT"2" :POKE48008,50:R=B5:n=B8 
415 P0KE9665,«P4:P0KE«26D7,B7:U=B6:POKE 
9619,B9:GOTO430 

420 PRINT" 1 " :POKE48008,4 9 :R=P5 :[1=P8 
425 P0KE9665, «40 :P0KE«26D7, P7 :U1=P6 :POKE 
9619,69 

430 P0KE9668,«28 : CPLL«25BC:GOSUB250 
435 FORI=0TO4 :POKE48021+1,32 = NEXT 
440 FOR I = 1 TOR:POKE48020+1,12] =NEXT 
445 FOR I=1 T03 : 1 Ffi=lTHEN455 
450 P0KE48035 + 1 ,BC I 3:POKE9803+I, BC 1 3-48 
:GOTO460 

455 POKE48035 +1,P CI3:POKE9803+I, PC J 3-48 
460 NEXT :UPIT250 

465 FORI=16T024:PLOTI,15,16:PL0TI,16,16 
:NEXT:PL0T15,15,16 = PLOT15,16,16 
470 PRINTCHR$C43:RETURN 
500 LORES0 :P0KE«26P,10 :P0KE«264E,0 =DOKE 
«264C,0 :P0KE«26D7,0:P0KE9619,67 
505 FORI=47040TO47063 :REPDJ =POKEI,J:NEX 
T 

510 CPLL«2600 

515 FORI=0TO39:PLOTI,0, 19 :NEXT 
520 CPLL«25P1 

530 FORI=0TO5:PLOTI,26,19:PLOT]+34,26, 1 
9 :NEXT 

535 PLOT 1,26, 1 :GOSUB600 :P=1 = B=0 =GOSUB30 
0 :p=0 :B=1 :GOSUB300 
540 P5=5:B5=5 :P6 = 4 :B6=4 :P8=16 :B8=16 
545 RETURN 

600 PLOT 1,3, 1 :PL0T1,4,2:PLOT],5,7 

601 FOR I=3T05 

605 FORJ = 9TO30:PLOTJ,I, 120=NEXT =NEXT 
610 RETURN 

700 DPTP63,33,33,33,33,33,33,63,0,0,30, 
30 

701 DP TP30,30,0,0,63,63,63,63,63,0,0,0 
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COMMENTAIRES 



Il faut également modifier à la 
ligne 120 le CALL # F8DO qui réi¬ 
nitialise les caractères par CALL 

# F89B. 

NOTE : Pour les amoureux de la 
vitesse, essayez de jouer en sup¬ 
primant les WAIT W à la ligne 95. 

ADRESSES DES 

SOUS-PROGRAMMES 

ASSEMBLEUR 

#2571 (9585-9614) : dessine 
les côtés du terrain (sous- 
programme). 

#2592 (9618-9632) : délai. 

# 25A1 (9633-9695) : dessine 
les côtés du terrain (programme 
principal). 

# 25BC (9660-9688) : affichage 
du mur suivant joueur. 

# 25DA (9690-9718) : saisie du 
mur suivant joueur. 

#2600 (9728-9781) : affiche 
"JOUEUR 1 BALLES : ■■■■ 
SCORE : 000". 

#2637 (9783-9800) : efface la 
balle quand on perd. 

# 264F (9804-9852) : score. 

# 267D (9853-9870) : POKE 


M,16 

#2694 (9874-9940) : calcul 
M +VX. 

# 26D8 (9944-9959) : stocke M 
dans le registre A. 

# 26F1 (9960-9983) : Play 2,0, 

0,100 

#2701 (9985-9999) : reposi¬ 
tionnement raquette. 

#2711 (10000-10060) : dépla¬ 
cement raquette. 

#2750 (10062-10099) : calcul 
du nouveau vecteur. 

#2776 (10100-10138) : calcul 
de M. 

#279C (10140-10160) : VX. 

# 27B1 (10161-10175) : VY. 

# 27C4 (10176-10340) : pro¬ 
gramme principal. 

# 286E (10350-10421) : calcul 
de M + VY. 

# 28B7 (10423-10464) : calcul 
rebond sur raquette. 

# 28F0 (10480-10504) : calcul 
de M + VX si VX< >0. 

# 290E (10510-10522) : efface 
la première ligne d'écran (48000- 
48039). 

# 291C (10524-10539) : teste la 
touche espace pour geler le jeu. 
CSAVE "”,A 9585,E 10539 


En LORES 0, le mémoires 
"vides" sont égales à 16 
(noir). 

Efface la balle. 

Réaffiche la balle à sa nouvelle 
position. 

M = Numéro de mémoire où se 
trouve la balle. 


VY : Vecteur de déplacement 
horizontal (déplacement de la 
balle vers la droite, la gauche 
ou nul). 


120 : code ASCII de la brique (x) 
122 : code ASCII de la 
raquette (z). 

32 : Code espace de chaque 
côté de la raquette permettant 
de savoir si la balle a raté la 
raquette. 


VX : Vecteur de déplacement 
vertical. 

VX = 0 — déplacement vers le 
bas. 

VX < >0 — déplacement vers 
la gauche. 


REMARQUE : 

Le déplacement de la raquette 
et la temporisation suivant le 
nombre de briques cassées sont 
indépendants de ce programme 
et sont appelés par le Basic. 


m: 


MATU C A U® primaires 

InMI noAlfl© 4 calcul mental [Ï2cTf 

MUSIRAMA ® l'écrltare musicale |140 f) 

LISSAGESKUfÏHta. m. 
SYSTEM'ANIMATION® 2. ni ïru on r4crans 

nilTIMATIP 1 3 utilitaires présenta. 

UU I IITIMI lu I® preirammation. copia... 




mi 


i* «l 






ET LES AUTRES... 


(120 F ) 



Pour plus de détails sur nos logiciels, 
nos matériels, connaître t’adresse 
jte nos dépositaires... 

^SERVEUR MINITEL: 75.40.48.44 
jlelShà 9h et les week-end, 
^ou notre catalogue 
^complet, contre 
.2 timbres à 

LOGICIELS, \ \^J2,20F 

MICRO-INFORMATIQUE 
et 

PERI-INFORMATIQUE 


® ATMOS, TELESTRAT 


® MO 5 



80, rue des fourniers 07 500 GUILHERAND 


□ MATH-SAM DMUSIRAMA □ LISSAGE 

lom-Prénom_ 


□ SYSTEM’ANIMATION 

_ Adresse _ 


□ OUTIMATIC réglement à la commande, port 15 F 
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1938. 

Tandis que la situation 

v * r 

-s politique s aggrave 
v ên'Europe, au Havre 
le plus grand et le 
plus luxueux paquebot 
du monde appareille pour 
New-York. A son bord, 
une clientèle fortunée et 
insouciante... et pourtant un 
drame va se jouer pendant 
la traversée. Vous vous trouverez 
ainsi projeté au cœur de la plus 
incroyable histoire d'espionnage 
qui permit aux alliés de gagner 
la seconde guerre mondiale 
5 ans plus tard... 


Un programme imaginé ei réalisé par 

Bertrand BROCARD avec Marianne ALISON 


Cobra Soft BP 155 - 71104 Chalon sur Saône Cedex 








«MEURTRES SUR L’ATLANTIQUE» pour ORIC ? 


«Attention, chef-d’œuvre... On ne peut faire plus complet et plus soigné...» (Soft & Micros) 

«Un bon logiciel qui vaut largement n’importe quel polar... A ne pas manquer !» (CPC) 

«Voulez-vous entrer dans la peau d’Hercule Poirot ou Sherlock Holmes ?» (Amstrad Magazine) 

«Le joueur va pouvoir s’éclater... Une présentation graphique en béton.» (Hebdogiciel) 

«Meurtres sur l’Atlantique est bien plus qu’un logiciel...» (Micro-Systèmes) 

«L’auteur de Meurtre à grande vitesse récidive... Richesse 9/10» (Sciences et Vie Micro) 

«Toujours plus fort... Génialement réalisé... Une intrigue ficelée de main de maitre...» (Tilt) 

«Un nouveau jeu génial... On croit réver... A ne pas manquer !» (jeux et Stratégie) 

«Un programme de style original particulièrement bien réussi !» (L’Ordinateur Individuel) 

«Un jeu fascinant...» (Microstrad) - «C’est fabuleux !» (Nouvel Observateur) 

Voilà comment la presse a salué de façon unanime le logiciel vedette de COBRA SOFT ! Pas besoin de commentaires... 
Compte-tenu des problèmes de distribution des logiciels pour Oric, et pour répondre à de nombreuses demandes, 
COBRA SOFT a décidé d’offrir aux lecteurs de THÊORIC l’occasion exceptionnelle de pouvoir disposer de Meurtres sur 
l’Atlantique en version cassette ORIC-1 et ATMOS en participant à une édition sous forme de souscription. 
Utilisez le bon ci-dessous. 

BON DE SOUSCRIPTION «MEURTRES SUR L ’A TLANTIQUE» ORIC 

OUI, je désire participer à la souscription pour l’édition de la version ORIC de Meurtres sur l’Atlantique. Ci-joint ma 
participation de 250 francs, sous forme de chèque. 

J’ai bien noté qu’elle me donnera droit à une version originale et numérotée du logiciel Meurtres sur l’Atlantique 
en version ORIC-1 et ATMOS (cassette). Si au 31 décembre 1986 le nombre de participants à la souscription est in¬ 
férieur à 500, mon chèque me sera retourné. (Aucun chèque ne sera encaissé avant expédition). 

NOM et Prénom.. 

Adresse complète et détaillée... 


Code postal.Ville. 

Bon de souscription à retourner à COBRA SOFT BP 155 - 71104 Chalon-sur-Saône Cedex - N’oubliez pas le chèque... 


nute... dernière minute... dernière minute... dernière minute... dernière minute... dernière 


NOUVEAUTES : A. X. M de COBRA SOFT 

Voici un nouveau jeu d'arcade pour Oric-1 et Atmos : A. T. IC. 

Il s'agit d'un jeu d'action comprenant 4 épreuves : vous devrez combattre en 
l’air, sur terre et dans la mer (d’où le nom...). 

Dans le premier tableau, vous serez aux commandes d’un avion supersonique avec 
lequel vous devrez traverser une nuée de mongolfières ennemies. 

Ensuite, au poste de pilotage d’un char, vous devrez franchir un terrain rocheux 
bombardé par des avions. 

Enfin, la dernière épreuve vous verra commandant d’un sous-marin dans une mer 
infestée de mines et batiments adverses. 

9 niveaux de difficulté, animations sonore et graphique. 100% langage machine. 

Ce jeu très rapide comblera les amateurs de bons jeux d’arcade ! 

Si vous ne le trouvez pas chez votre revendeur habituel, commandez-le par courrier 
en écrivant à : 

COBRA SOFT BP 155 - 71104 Chalon-sur-Saône Cedex 

Joignez votre réglement par chèque : 130 F (120 F + 10 F de port). 

Aucun envoi en contre-remboursement. 














CLIPPING 



Prenons, par exemple, un seg¬ 
ment allant du point 1 vers le 
point 2. La routine CLIPPING ne 
tracera que la partie visible qui se 
limitera au segment (V, 2'). 

Les bornes de la fenêtre de visua¬ 
lisation peuvent être modifiées à 
volonté : en effet, si on les prend 
égales à (120,0,239,199), on ne 
pourra tracer de segments que 
dans la moitié droite de l'écran 
graphique, l'autre moitié pouvant 
servir à des commentaires, voire 
même à un autre dessin si on 
prend soin de changer à nouveau 
les bornes (0,0,120,199). Dans 
le programme de démonstration, 
les lignes 250,260 effectuent un 
tel changement de bornes (40, 
50,140,180). Une fois les bornes 
redéfinies, elles le resteront 
jusqu'à nouvelle modification... 
Pour faire afficher un segment, il 
suffit de rentrer 4 entiers de 16 
bits signés (voir remarques du 
programme de démonstration 
3015 à 3018)... Les deux pre¬ 
miers, représenteront l'abscisse 
et l'ordonnée du point de départ 


C ette routine en assembleur permet l'affichage d'un 
segment dans une fenêtre de visualisation, même 
si ses extrémités n'appartiennent pas à ladite fenê¬ 
tre (à condition, bien sûr, qu'il v ait une partie à tracer !). 
Initialement, l'écran de visualisation est fixé aux limi¬ 
tes normales de l'écran graphique, c'est-à-dire 
( 0 , 0 , 239 , 199 ). 

Si l'intersection logique (AND) 
des codes des points A et B 
donne 0, il se peut qu'il y ait un 
morceau de segment à tracer, 
mais cela n'est pas évident. Tan¬ 
dis qu'une intersection des codes 
(ex. B et C) non nulle permet de 
savoir immédiatement qu'il n'y 
aura rien à dessiner. Ainsi, cette 
méthode permet d'éliminer rapi¬ 
dement un grand nombre de seg¬ 
ments non-traçables. 


du segment, respectivement XP1 
et YP1, implantées aux adresses 
#8003 et #8005, les deux 
autres, le point d'arrivée xp + , 
yp + en #8007 et #8009. La 
nature du trait FD (comme en 
Basic) est introduite en # 800F, 
elle est initialement égale à 1. 
ATTENTION ! Les coordonnées 
introduites pour chacun des deux 
points sont dites absolues et non 
relatives comme le DRAW du 
Basic ! Donc, si XI =20, Y1 = 
10, X2 = 200, Y2= 10, le seg¬ 
ment sera horizontal et non légè¬ 
rement incliné. 

CLIPPING transfère automatique¬ 
ment, une fois le segment tracé 
(ou non), les coordonées du point 
d'arrivée vers celles du point de 
départ, ce qui permet de ne ren¬ 
trer uniquement que les coordon¬ 
nées d'arrivée du prochain seg¬ 
ment si celui-ci est rattaché au 
segment qui vient juste d'être 
tracé (propriété utilisée par les 
lignes 3100 à 3150). 

Quelques renseignements sur le 
fonctionnement de CLIPPING : 
Pour coder un point, la routine 
utilise la technique classique sui¬ 
vante : 


X min 


X max 


Y min 


Y max 


Fenêtre de_ 
visualisation 



Exemple : 
codage du point A 
codage du point B 
codage du point C 


Intersection B et C 
(bit à bit) 


0000 

0001 

1001 

0001 

1001 

0001 


MODE D'EMPLOI 

DES DEUX PROGRAMMES 

BASIC 

• Le premier (listing 2) permet de 
charger la routine Assembleur 
CLIPPING et de contrôler les 
DATAS. Une fois le programme 
exécuté, faites : 

CSAVE"CLIPPING'', 

A #8000, E # 82E0 

• Le second (listing 1 ) est un pro¬ 
gramme de démonstration des 
possibilités de la routine. Atten¬ 
tion : pour les possesseurs 
d'ORIC-1, si vous avez chargé la 
routine assembleur après le pro¬ 
gramme de démonstration et que 
vous voulez faire un RUN, un 
message d'erreur «OUT OF 
MEMORY IN 10» apparaît. Il suf¬ 
fit de taper DOKE #9C, #1500 
pour que tout redevienne nor¬ 
mal... 

• Pour lancer la routine, il suffit 
de faire CALL #8000 dans un 
programme Basic (voir lignes 
3140, 3270), après avoir «doké» 
les différentes données. Il est évi¬ 
dent que CLIPPING ne donnera 
de résultat que si l'on se place en 
haute résolution... 
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PETITES ANNONCES 


La plaça réaarvéa aux patitaa annonças aat 
limité» En conséquanca. caNaa-ci passent 
dans leur ordre d 'arrivé» Par contra, la* peti¬ 
tes annonças farfelues sont systématique¬ 
ment rejetées... De même, comme II est peu 
probable qu'il exista des "généreux dona¬ 
teurs" dp matériels ou de logiciels, les peti¬ 
tes annonces faisant appel à ces philantro- 
pes ne seront Insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendra ou échanger des liâtes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce Incitant au piratage. 

En conséquanca. réfléchisses bien avant 
d’anvoysr vos testas. 

Las petites annonças doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée). le texte étant rédigé à raison d'un 
caractère par casa. 

Enfin, toute annonce non accompagnés de 
timbres ne sera pas insérée. 


Recherche lecteur de disquettes Jasmin contre 100 
logiciels. Contacter Olivier MARIEN, 51 rue Natio 
nale. 62550 PERNES. 

Urgent, vends tous logiciels. S'adresser à Olivier 
MARIEN, 51 rue Nationale. 62550 PERNES. 


Vends ATMOS + Jasmin 2 + 20 disquettes dont 
celles de THEORIC + revues THEORIC de 2 à 21 
Le tout : 3500 F. Tél. 87 92.51.19. M BEYLET, 
57 ST. AVOLO 

Vends pour Jasmin Multifich V31. Jasmin Forth. 
Jasmitel et Vortex sur disquettes : 200 F pièce. Tél. 
93.52.08.49 après 21h. 

Vends ZX81 complet + clavier ABS + livres + 8 
prog. + extension 16 K. Etat neuf : 800 F. Patrice 
FROMENT, tél. 61.47 49.37 après 17h. 

Urgent : vends Lynx 96 Ko + 6 jeux + livres + 
interf. + joysticks + cordon. Sacrifié : 1800 F Tél. 
87 96.02.26 le soir. 


Vends ORIC-1 + prise péritel + 8 K 7 achetées 
dans le commerce (Xénon, Zorgon) : 500 F. Tél. 
51.52.14.72. 


Vends EXL 100 clavier infrarouge détachable + 
synthé vocal incorporé 32 K RAM, bradé : 990 F 
(acheté 3200 F). Tél. 98.81.05.48 Thierry BOTHO 
REL. 

SEDORIC cherche contact pour échange, même 
autres DOS + JASMIN car "Convert" d'un SEDO 
RIC Tél. 98.81.05.48 (sauf 1-25 août) Thierry. 

Vends table graphique neuve Graphiscop II + K7 
+ manuel + interface 0RIC-1/ATM0S : 950 F. 
Echange jeux K7. J.P. DESCAMPS. 33520 BRU 
GES. tél. 56.39.27.06. 

Vends ATMOS * alimentation + câbles + revues 
THEORIC 118) + 15 Hebdogiciels + 6 livres + 7 
logiciels : 1450 F. Tél. 43.40.01.34 après 19h. 

RTT Y sur imprim. Simulât, radio morse. Traitement 
texte spécial OKIMAT 20. Catalog 1600 PRG-DOC, 
2 timbres M PICAULT, 13450 GRANS. 

Vends ATMOS amélioré linterrup.. régi, son, alim. 
généra., anti chaufl + 180 prog. + 21 THEORIC 
+ Clés pour ORIC : 2000 F. Tél. 28.26.90.89 

Vends logiciels : Commando. Rallye II. Rambo. etc. 
David BOTTIN. Rés. Angélique 3, 79000 NIORT 

Vends ATMOS + PERITEL : 600 F. Jasmin + 11 
dise. : 2200 F. Monit. coui. : 2200 F. Prog. + jeux 
+ livres + abonn., lot. : 4200 F. FREJUS, tél. 
94.51.02.89 après 19h. 

Recherche photos sur «Initiation au L M ». parue 
dans THEORIC N° 5. Merci. M Denis LEMEUR. 42 
rue des Pommiers. 93500 PANTIN 

Vends synthétiseur français : 300 F. Recherche 
VORTEX. Cité de Crystal. Scrabble. Méphisto, Dit- 
dac. M. HENRIAT. 5 rue G. Moquet. 91390 MOR- 
SANG. 

Vends ORIC-1 48 K + 10 logiciels K7 + revues 
+ livres : 1700 F. Imprimante MCP 40 : 900 F. Tél. 
48.40.53.91. 


Cherche Jasmin 2 ou Microdrsc occ Echange pro 
grammes sur K7. J.P KACZMAREK. 9 rue Bois 
Blanc. 62149 GIVENCHY/BASSEE 

Vends ROM ATMOS pour transformation ORIC-1. 
Possibilité 2 versions sur même app. Tél. 
87 37.88.79 HB 

Vends THEORIC n° 1.4. 6 è 16 et 18 (20 F cha¬ 
cun ou 250 F le tout). Vends programmes ORIC-1 : 
14 F par jeu (échanges possibles). Envoyer K7 + 
liste è Frédéric INFARNET. U Pin. 83230 BORMES 
LES MIMOSAS. 

Vends ATMOS + lecteur K7 + moniteur mono 
chrome + 4 K7 de jeu + 3 THEORIC : 2000 F. 
Demander Alexandre au 86 75.20.75. 


ECSI : 

ATTENTION, DANGER ! 

De nombreux lecteurs ont passé 
commande auprès' de cette 
société qui a fait paraître, à deux 
reprises, une publicité dans notre 
revue. Il semblerait, malheureu¬ 
sement, malgré nos appels télé¬ 
phoniques au (16-1) 47.23.67.47, 
que les responsables de cette 
société ne croient plus devoir 
donner signe de vie. Méfiance 
donc... Ne passez plus com¬ 
mande auprès de ECSI... 

Si vous faites partie des gens qui 
ont, malheureusement, été abu¬ 
sés par cette société, il ne vous 
reste plus qu'à faire intervenir la 
justice ou une association de 
consommateurs. 


ÀN N ONCÉZ - VOUS ! | 

les petites annonces et les messages 



Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
f- SORACOM, La Haie de Pan, 35170 BRUZ 


50 










































AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


thévric 
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(Pour les seuls numéros encore disponibles 
en mai 1986) 

NUMERO 4 

SYNTHETIS : logiciel d'accompagnement du 
synthétiseur vocal. ESSAI DE LA PHS 60 
interface PERITEL/UHF. Recopie graphique 
sur GP 50. Banc d’essai du modem DIGITE- 
LEC DTL 2000. Drapeaux : programme de 
jeu. Interfaces joystick : comparatif. 


du MONITEUR 1 .0 de LORICIELS. CROCKY : 
jeu. Compte bancaire : gérez-le sur MICRO 
DISC (11. Compatibilité DTL 2000 et JAS¬ 
MIN. 

NUMERO 11 

Hors-série rempli d'une multitude de pro¬ 
grammes en tous genres. 


NUMERO 16 


Le TELESTRAT arrive. Animation graphique 
améliorée Musique : un choral de Bach. Elé¬ 
ments de programmation en Basic. Un jeu : 
l'Escadron suisse. Le MINITEL : périphérique 
intelligent. Deux recopies d'écran pour 
GP 100. Un logiciel pour les petits : POULE. 
Jasmin et Microdisc : ils communiquent. 

NUMERO 17 


NUMERO 6 

Essai de l'XL DOS. AUTOVERIF pour amé¬ 
liorer la fiabilité du chargement cassette. 
Essai de la carte 8 E/S MAGECO. VOICE : 
ORIC parle sans interface. RENUM-DESTRUC 
renumérotation et suppression de lignes 
Basic. Les interruptions : une horloge. 
Master-Mind : jeu. ANADIS : analyse de dis¬ 
quettes au format MICRODISC. La Jasmin- 
Printer (Brother Ml009) à l'essai et recopie 
d'écran pour cette imprimante. 

NUMERO 7 

BLURK'S : jeu. Editeur de caractères pour 
redéfinir le jeu de caractères. Calculs en lan¬ 
gage machine pour aller plus vite. Lecture et 
Ecriture de secteurs sur Jasmin ou comment 
réparer une disquette. Tour d'horizon des 
Moniteurs-Assembleurs du commerce. Le 
magnéto sans angoisse ou comment amélio¬ 
rer le chargement des cassettes. Essai du 
RANDOS. Essai du crayon optique. Recopie 
d'écran sur MCP 40. L’interface TVS. 

NUMERO 8 

Une alimentation secourue pour se jouer des 
coupures de courant. L'ORIC et les SPRITES. 
Un coffret pour ORIC : tout en un. Comment 
brancher ORIC sur un moniteur monochrome. 
Domptez votre MICRODISC. Modifier le 
T-DOS. Logiciel de Facturation. Implantez du 
binaire dans des DATA : CREADATA. 

NUMERO 10 

Essai du modem TONIC. Le Basic Français. 
Utilitaires pour vous plaire (1). Modifications 


NUMERO 12 

Ecrivez votre jeu d'aventure : COLDITZ. Le 
DTL 2000+ un serveur pas cher. Schéma 
électronique de l'ORIC. Essai de la table gra¬ 
phique GRAPHISCOP. Le partage mémoire de 
l'ORIC. Utilitaires pour vous plaire (2). Un 
Moniteur-Assembleur. Compte bancaire 
(suite et fin). 

NUMERO 13 

Transfert du FORTH sur MICRODISC. TAN¬ 
DEM 1 3 un logiciel pour le DTL 2000. Jouez 
avec les couleurs de l'ORIC. Utilitaires pour 
vous plaire (3). Créer des fenêtres sur ORIC. 
MICRODISC et JASMIN : ils communiquent. 
City on Raid : jeu. 

NUMERO 14 

Le SEDORIC à la loupe. Un éditeur de carac¬ 
tères en langage machine. CONJUGAISON : 
ORIC à l'école. Sortir le son sur le téléviseur. 
Fenêtres (fin). Calculez votre Epargne- 
Logement. Scrolling latéral. Sauvegarde des 
variables avec l'ORIC-1 . Un utilitaire : Super 
Désassembleur. Jouez avec les Mots- 
Cachés. 

NUMERO 15 

Une imprimante à l'essai : la MT 80S. Spiro¬ 
graphe : rosaces et arabesques. TRON les 
motos de lumière (jeu). Essai de la carte 256 
couleurs de Microfutur Editeur de secteurs 
sur Jasmin. MUSICORIC pour que l'ORIC-1 
devienne musicien. Carte série pour liaison 
avec MINITEL. Educatif : le moteur à 4 
temps. Redéfinition de caractères pour 
EASYTEXT. 


Le TELESTRAT se présente. Transfert de 
l’écran TEXT en HIRES (1). Conversion du 
binaire en DATA. ORICTEL : logiciel d'appli¬ 
cation de la carte série Minitel. Recopie rapide 
sur imprimante mode texte. Ecriture évoluée. 
LEONARD : utilitaire de dessin ( 1 ). Fiches de 
paye : comment calculer les salaires avec 
ORIC. Jaquettes de cassettes pour GP 50. 
Catalogue amélioré sur Jasmin. 

NUMERO 18 

Un drive 3"1/2 à l’essai. Triphonie : l’ORIC 
devient orgue. Connaissez-vous les objets 
fractals ? Le Devin : chirologie ou jeu ? Un 
ieu : Frog Panic. Pour lister un programme à 
partir du MINITEL (et de la carte série) : 
MLIST. Accordez vos instruments de musi¬ 
que avec Fréquencemètre. Text-Hires (fin). 
Léonard (suite). Deux recopies d'écran : 
GP 550 et Brother M1009 (Jasmin Primer). 
Lister l'EPROM du Microdisc. 

NUMERO 19 

Léonard : fin de l'utilitaire création graphique. 
Modifications de l'ATMOS et du MICRO¬ 
DISC. Un mini-interpréteur. Protection du 
HIMEM. Le tri en langage machine. Jeu édu¬ 
catif : EUROP’ORIC. En savoir plus sur le 
SEDORIC. Compte bancaire : gérez-le sur 
JASMIN. Utilitaires pour vous plaire (4). 

Les articles et programmes rappelés ci- 
dessus ne forment que l'essentiel des diffé¬ 
rents numéros de THEORIC cités. Les essais 
des différents logiciels, les trucs et astuces, 
etc. sont autant d'arguments qui devraient 
vous inciter à compléter votre collection de 
THEORIC. 
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ENFIN DISPONIBLE ! 

Nous vous l'annoncions depuis longtemps 
Vous l'attendiez impatiemment. 



ATTENTION ! 

Les abonnés à THEORIC 
recevront une offre spéciale 
à prix très réduit... 


Prix : 151 F + 9 F de port. 





LE LIVRE 
QUE TOUT 
PROGRAMMEUR 
'Qüe AVANCE 

DOIT POSSEDER 
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